MAINDEC-11-D51A 
RFll D2SK DATA 
(STATIC PORTION) 



ENTER INTERRUPT BACKGROUND TEST 
SR9 SET WAIT ''OR INTERRUPTS USING WAIT INSTRUCTION 

RESET WAIT FOR INTERRUPTS WITh BACKGROUND TEST 

LOOP ON DISK ADDRESS 
SR8 SET LOOP ON DISK ADDRESS (SPECIFIED BY WORD COUNT AND OAR) 

RESET CONTINUE TO NEXT DISK BUFFER AREA. 

SELECT TRACK FROM 8R (DURING DYNAMIC TESTING) 
SR7 SET SELECI TRACK FROM SR 

RESET SELECT TRACK UNDER PROGRAM CONTROL 

TRACK SELECTION 
6 5 4 3 2 1 

SELECT ONE OF 177<8) TRACKS 



5.2 CONVERSATION MODE FOR PROGRAM PARAMETERS FOR DATA TEST ONLY 



IN THE PROGRAM CONVERSATION MODE THE OPERATOR CAN SPECIFY 
ANY ONE OR ALL OF THE PROGRAM PaRAMETERSi 

PROGRAM CONVERSATION 

DATA TEST ONLY? 

IF THE OPERATOR ANSWER YES THE PROGRAM WILL ENTER ONLY 
THE DATA PORTION OF TEST. 

MULTL DK MODE? 

MULTI DISK MODE IS A MODE IN THE PROGRAM WHICH ALLOWS THE 
OPERATOR TO EXEClSE, ALL THE DISKS ON ThE SYSTEM WITHOUT 
RE-STARTING THE PROGRAM, THE PROGRAM AFTER EXERCISING ONE 
DISK WILL REPORT A MESSAGE TELLING THE OPERATOR WHICH DISK 
WILL BE SELECTED NEXT* AND THEN THE PROGRAM WILL EXERCISE 
THAt DISK, WHEN A COMPLETE PASS IS ACCOMPLISHED, A PASS 
COMPLETE WILL BE REPORTED AND THE TEST WILL RECYCLE, 

IF THE OPERATOR ANSWERS "YES" TO THIS QyESTlONi HE WILL THEN 
BE ASKED HOW MANY DISKS ARE ON THE SYSTEM, AND THEN THE 
PRECEDING QUESTION WILL BE SKIPPED, IF THE OPERATOR ANSWERS 
"NO" TO THIS QUESTION' THE NEXT QUESTION WILL BE SKIPPED, AND 
HE WILL THEN BE ASKED WHICH DISK IS TO BE EXERCISED. 

# OF DKS 1 TO 10 OCTAL? X 

TYPE THE NUMBER OF DISKS ON THE SYSTEM, FOR MULTI DISK MODE, 

EX, DK? X 

WHEN NOT IN THE MULTI DISK MODE THE OPERATOR WILL HAVE TO 
SPECIFY WHAT DISK IS To BE USED. 

OPT, WRD CNT? 

IF THE OPERATOR ANSWERS "NO" TO THIS QUESTION THE NEXT TWO 
QUESTIONS WILL BE DELETED FROM THE CONVERSATION, 

LENGTH (1 TO 1000)? XXX 

THE OPERATOR CAN SPECIFY ANY LENGTH TRANSFER FROM 1(8) TO 
1 00(8) WORDS, THE NORMAL TRANSFER LENGTH IS 1000(8) WORDS 
UNDER PROGRAM CONTROL. 

WRD ADDR? XXXX 

THE OPERATOR MUST NOW SPECIFY THE STARTING WORD ADDRESS-THIS 
BEING ONE OF 2048(10). ADDRESS ENTRY MuST BE MADE IN OCTAL 
( ' TO 3777(8) ) , 
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OPT, DATA PAT. #? 

IF NO OPTIONAL DATA PATTERN IS REQUESTED THE PROGRAM WILL 
EXECUTE THE FOLLOWING LIST OF DATA PATTERNS. 

a 177777 
8 134510 
a /)43267 

B 1000k}0 

a 107070 

s /170707 

= 125292 

= .>525ii5 

5 177757 

s W04102 

= 136363 

s 063636 

= 100005 
s 300520 
= :>30303 
= RANDOM DATA 

- RUN All data patterns under program Control 

IF THE OPERATOR DECIDES TO OPERATE UNDER PROGRAM CONTRQLi 
THE NEXT QUESTION WRL BE SKIPPED, THE OPERATOR BY 
REQUESTING AN OPTIONAL DATA PATTERN HAS THE ABILITY OF 
SELECTING ANY ONE OF THE 2l<8) DATA PATTERNS. DATA PATTERN 
NO', XX 

DISK PROGRAM FUNCTION PARAMETERS 

IN THIS SECTION OF THE PROGRAM PARAMETER CONVERSATION MODE, 
THE OPERATOR CAN SELECT ANYONE OR ALL THREE OF THE CONTROL 
FUNCTIONS TO BE EXECUTED, THE NORMAL SEQUENCE OF DISK 
FUNCTIONS UNDER PROGRAM CONTROL IS WRITE, WRITE CHECKi AND 
THEN READ, BY ENTERING THE CONVERSATION MOqE THE OPERATOR 
HAS GAINED COMPLETE CONTROL OVER THE DISK FUNCTIONS, HE 
MUST SPECIFY YES OR NO TO ALL OF THE FOLLOWING QUESTIONS, 

WRITE? (YES - NO) 

WRITE CHECK? (YES - NO) 
READ? (YES " NO) 

TO PERFORM A WRITE CHECK ONLY, THE OPERATOR MUST FIRST 
WRITE SOME KNOWN DATA ON THE DISK, THIS COURSE OF ACTION 
ALSO PREVAILS FOR A READ ONLY OPERATION. 

• IF AN ERROR OCCURS IN THE LINE THE OPERATOR IS TYPING, 
DEPRESS THE RUB-OUT. THIS CAUSES THE QUESTION TO BE 
RETYPED AND ALLOWS THE OPERATOR TO PROPERLY ANSWER THE 
QUESTION, 

« INDICATES TO THE OPERATOR THAT THE CARR I AGE-RETURN 

SHOULD BE TYPED aT THE INDICATED PLACE TO TERMINATE 
THE LINE OF TYPED CHARACTERS, 



PATTERN ^ 
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11 
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12 


II 


13 


II 


11 


II 


15 
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17 


II 


211 


II 


21 


II 


22 



5.3 SUBROUTINE ABSTRACTS 



STATIC TEST 

ABSTRACTS FOR THE LOdC TESTS IN THE STaTIC TEST ARE NOT 
INCLUDED IN THIS WRITE-UP. EACH SMALL TEST HAS A DESCRIP- 
TION WITH IT IN THE ASSEMBLY, 
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ADDRESS TESTS |N STATIC TEST ONLY 
ADTl - TEST WORD ACCESS DURING A WRITE 

IN THIS TEST A ONE WORD WRITE IS ATTEMPTED ON EACH ADDRESS 
OF TRACK ZERO, IF NO ACCESS IS ACCOMPUlSHED WJThIN 100 MILLI- 
SECONDS THE ERROR CONDITION MISSED TRANSFER (MXF) SHOULD SET, 
IF THIS FLAG SHOULD FAIL TQ SET, A PROGRAM TIME OUT WiLL BE 
REPORTED. IF NO CONTROL ERROR OCCURS AnO ADDRESS CONFIRMED 
TAKES PLACE, THE ROUTINE THEN CHECKS THE ADDRESS POINTER FOR 
THE CORRECT TERMINATING ADDRESS, 

ADT?X - TEST WORD ACCESS DURING A READ 

IN THIS TEST A ONE WORO READ IS ATTEMPTED ON EACH ADDRESS OF 
TRACK HERO. IF NO ACCESS IS ACCOMPLISHED WITHIN 100 MILLI- 
SECONDS THE ERROR CONDITION MISSED TRANSFER <MXF) SHOULD SET, 
IF THIS FLAG SHOULD FAIL TQ SET A PROGRAM TIME OUT WILL BE 
REPORTED. IF NO CONTROL ERROR OCCURES aNO ADDRESS CONFIRMED 
TAKES PLACE, THE ROUTINE THEN CHECKS THE ADDRESS POINTER 
REGISTER FOR TrE CORRECT TERMINATING ADdRESS, 

ADDRESS TEST IN DATA TEST ONLY 

ADT? - TEST FOR ALTERATION OF WORD ADDRESS 

IN THIS ADDRESS TEST, TRACK ZERO IS LOADED WITH ALL ONES IN 
BLOCK OF 2K, THEN THE TEST STARTING WITH ADDRESS AND PR0" 
GRESSING UP THROUGH aND INCLUDING ADDRESS 3777(8), ThE OCTAL 
VALUE OF THE ADDRESS^ IS WRITTEN ON ITSELF AND ALL OTHER 
ADDRESSES ARE CHECKED FOR MODIFICATION, THEY SHOULD EQUAL 
ALL ONES. AFTER CHECK IS COMPLETED AND ALL ERRORS ARE REPORTED 
TF ANY. THE ROUTINE THEN RE-WRITES THE aDDRESS WITH ALL ONES 
AND THEN CONTINUES ON WITH THE NEXT ADDRESS. 

ADT3 - VERIFY THAT ALL ADDRESSES EXIST oN DISK SURFACE TRACK 

IN THIS ROUTINE THE OCTAL VALUE OF EACH ADDRESS IS WRITTEN ON 
ITSELF IN 2K WORD BLOCKS, THE ROUTINE THEN READS THE DISK AND 
VERIFIES THAT ALL ADDRESSES CAN BE ACCESSED, ERRORS MAY BE 
REPORTED IN THIS TEST WHICH ARE NOT ADDRESS ERRORS BUT DATA 
ERRORS. THE OPERATOR IS CAUTIONED TO CaREFuLLY EXAMINE THE 
ERRORS TQ DISTINGUISH BETWEEN THE ADDRESS AND DATA ERRORS, 

ADT4 - TEST TRACK "X" AND "Y" MATRIX 

THIS ROUTINE WAS DESIGNED TO ENABLE THE OPERATOR AN EASY AND 
SURE METHOD OF DETECTING DEFECTIVE MATRIX SWITCHES, IN THIS 
ROUTINE THE FIRST AND LAST LOCATION OF EACH TRACK (0 AND 3777(8)) 
ARE WRITTEN WITH ALL ONES. AFTER THE INITIAL WRITE HAS TAKEN 
PLACE. THE ROUTINE THEN STARTS WITH THE FIRST WORD OF THE ABOVE 
INDICATED LOCATION AND WRITES THE ADDRESS ON ITSELF, THE NEXT 
STEP OF THE ROUTINE iS TO CHECK ALL OTHER ADDRESSES TO SEE IF 
THEY HAVE BEEN ALTERED, AFTER ALL ERRORS HAVE BEEN REPORTED, 
IF ANY, THE ROUTINE RE-WRITES THE ADDRESS WiTH ALL ONES AND 
CONTINUES ON WITH THE NEXT ADDRESS, 



ADT5 " TEST LOOK AHEAD FEATURE 



THE DISK UOOK AHEAD FEATURE WAS DESIGNED FOR THE USER WHO 
WANTED OPTIMUM USE OF THE DiSKi BY KNOWING AT WHAT ADDRESS 
THE DISK READ HEADS aRE LOCATED AT ALL TIMES, THE ADDRESS 
LOADED INTO THE ADS REGISTER IS THE PHYSICAL ADDRESS OF 
THE DISK. THE PROGRAM LOCATES THE PHYSICAL ADDRESS 
BY WRITE A WORD AND uPON RECEIVING THE COMPLETION FLAG THE 
PROGRAM READS THE ADS REGISTER, THE ADDRESS MAY BE UP TO 
2 ADDRESSES OFF, 
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SPIRAL - TEST DISK TRACK SPIRAL 

IN THIS ROUTINE THE ABILITY OF THE CONTROL (RFK>9/15) TQ SPIRAL 
FROM ONE TRACK TO ANOTHER DURING A READ AND A WRITE, IN ORDER 
TO CHECK THE READ SPIRaLi tHE LAST ADDRESS (3777(8)) OF TRACK 
ZERO IS WRITTEN WITH PRE^DETERM I NED DATA AND THE FIRST ADDRESS 
( :) OF TRACK ONE, IS ALSO WRITTEN WITH pRE-DETERM 1 NED DATA, 
THEN A TWO WORD READ STARTING AT LOCATION 3777(8) OF TRACK ZERO 
IS ACCOMPLISHED. THE TWO WORDS THEN ARE COMPARED TO THE DATA 
WRITTEN AND ANY ERRORS ARE REPORTED, 

TO CHECK WRITE SPIRAL* THE ROUTINE WRITES TWO WORDS STARTING 
AT ADDRESS 3777(8) OF TRACK ZERO AND TERMINATES AT LOCATION 
OF TRACK ONE, THE ROUTINE THEN READS THE TWO LOCATIONS WITH 
ONE WORD TRANSFERSi AND VERIFIES THE CORRECT DATA WAS STORED IN 
EACH LOCATION. 

DATA TESTS 

RANEX - RANDOM DATA. RANDOM ADDRESS RANDOM WORD COUNT TEST 

THIS ROUTINES TESTS THE ABILITY OF THE SYSTEM TO ACCESS RANDOM 
ADDRESS WITH RANDOM DATA AND AN INCREMENTAL WORD COUNT, THE 
OATA IS FIRST WRITTEN ON THE DISK AND THEN DATA IS WRlTE^ 
CHECKED, ALL ERRORS ARE REPORTED, THE WQRD COUNT RUNS FROM I 
TO 1000(8) WORDS, 

DATA RELIABILITY - DATA PATTERN TEST 

IN THIS PORTION OF THE TEST, THE ABILITY OF THE COMPLETE DISK 
SURFACE TO WRITE, WRflE-CHECK, AND READ DATA IS TESTED, THE 
ROUTINE FIRST WRITES THE COMPLETE SURFACE WITH A SET DATA 
PATTERN. THEN A WRITE CHECK OF THE COMPLETE SURFACE IS ACCOM'» 
PLiSHEO, THUS REPORTING ALL ERRORS BETWEEN THE DATA WRITTEN 
AND THE DATA IN MEMORY, THREE READS ARE ACCOMPLISHED FOR EACH 
BUFFER AREA ON THE DISK, THE OPERATOR AT THIS POINT HAS SEVERAL 
OPTIONS AS TO WHAT COURSE OF ACTION THE PROGRAM WILL TAKE NEXT, 
(REF. SEC, 5.1) 

IN THE DATA RELIABILITY, ALL PROGRAM PARAMETERS CAN BE CHANGED, 
REF. SEC. 5,2 

MAINTENANCE TOOL 

STAMP - STATIC TRACK SELECTION 

THIS ROUTINE WAS DESIGNED TO ENABLE THE OPERATOR TO HAVE A QUICK 
METHOD OF SELECTING TRACKS FOR AMPLITUDE ADJUSTMENTS, 
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STAMP - OPERATING PROCEDURE 

STEP A. SET SWITCH REGISTER EQUAL TO 704 

STEP B. DEPRESS LOAD ADDRESS 

STEP C. SET SWITCH REGISTER 9 THRU 7 EQUAL TO DISK THRU 7 

STEP D. DEPRESS START 

STEP E. SET Switch register § thru equal to track # 

STEP F. DEPRESS CONTINUE 

6 5 4 3 2 i 

TRACK NUMBER 
<0 THRU 177(8)) 

STEP G. TRACK NUMBER CAN BE CHANGED ARBITRARILY, 

6, ERROR REPORTS 

6.1 STATIC AND ADDRESS REPORT, 

XX ERR CNT XXXXXXWR01XXXXWRD2 

ERRCNT s IS THE TAG FOR THE LISTING 
WROl » WHAT WAS EXPECTED 
WRD2 a WHAT WAS RECEIVED 

WHEN A REPORT ONLY CONTAINS ONE WORD THE PROGRAM WAS EXPECTING 
?EROS BUT RECEIVED WHAT WAS REPORTED, 

6.2 ERROR REPORTS 
STATUS ERROR 

STATUS ERROR XXD AE, ,XXmXDAl^ 

ABC 



A«THE DISK NUMBER AND EXTENDED DISK ADDRESS BITS, 
B*THE DISK ADDRESS REGISTER 
C'THE DISK CONTROL REGISTER 

LAYOUT OF DISK ADDRESS BITS 

DAE p<^R 

'XXX XX^ XXX XXX xxTxxx xxx^ 

DISK NO, TRACK ADDRESS WORD ADDRESS 

BIT LAYOUT OF DCS REGISTER 

BlTl5« ERROR 
BIT14S DISK FREEZE 



4 



B1T13« WRITE CHECK ERROR 

BIT12B DATA PARITY ERROR 

BiTllB NON-EXISTENT DISK 

BIT10S WRITE LOCKOUT 

Blt9« MISSED TRANSFER 

BlT8a DISK CLEAR 

BlT7« READY 

BlT6a INTERRUPT ENaBUE 

BiTSa EXTENDED MEMqRY 1 (XMl) 

BlT4« EXTENDED MEMqRY <XM0) 

B1T3B MAINTENANCE 

BIT2-1* Function register 



BIT 2 BIT 1 OPERATIO N 









NOP 


1 





READ 





1 


WRITE 


1 


1 


WRITE 



IF THE ERROR OCCURRED WHEN READING THE PROGRAM WILL REPORT 
WHICH READ, 



NOTE! WHEN A FREEZE ERROR OCCURS AN ADDITIONAL ERROR MESSAGE 
WILL BE REPORTED! AS f'OLLOWSI 

XXX hRd err 

LAYOUT OF BITS 0-7 

BIT0* CMA INH. (NOT An ERROR CONDITION) 
BITI" UNUSED 

BIT2- NON-EXISTENT MEMORY ERROR 
BIT<5" UNUSED 

BIT^» TRACK C TIMING ERROR 
BITSb TRACK B TIMING ERROR 
BIT6» TRACK A TIMING ERROR 
BlT/» ADDRESS PARITY ERROR 

6.3 DATA ERRORS 

DATA ERR .1 R_EA^ ^^^^ XXXXXXDAR, XXXXXX GP DAT A ^XXXXXXBD DAT<^ 
A B C D E 

A«WHICH READ THE ERROR OCCURRED 

B»THE DISK NUMBER AND EXTENDED DISK ADDRESS BITS 
C«THE DISK ADDRESS REGISTER 
D»THE DATA WRITTEN ON THE DISK 
E«THE DATA READ FROM THE DISK 

6.4 RANIEX ERRORS 

ERRORS WHICH OCCUR IN RANEX ALSO HAVE ThE WqRO COUNT REPORT 
WITH THE ERROR MESSAGt IN THE FOLLOWING MANNER, 

RANEX ERR vXXDAE, XXXXXXqAR, vJ^^^^D^CnT^^ 

/ \ ^ 

ABC 
A'STaRTINC DAE of TRANSFER 

b»starting daR of transfer 
c=w0rd count of transfer 

6.5 overflow error 

when the disk transfers more words then its word count was 
equal to, the program flags it, 

EXTRA BKS XXXXXX WRO AQOR XXXXXX BD DATa 
A B 

AsTHE LOCATION IN MEMORY WHERE THE OATA WAS TRANSFERRED 
B-THE DATA THAT WAS TRANSFERRED 



6.6 OISK ADDRESS ERROR 

DK ADDR ERR XXqAEXXXXXXDAR 

tHE TERMINATING DISK ADDRESS AFTER THE TRANSFER WAS NOT CORRECT 
THE DAE AND DAR SHOULO EQUAL WHAT WAS REPORTED, CHECK THE RFll 
PANEL FOR THE ERROR ADDRESS, 

6.7 PROCESSOR TIME OUT 

CPU BKGRND TIMED OUT 

THIS MESSAGE WILL BE REPORTED IF THE DISK FaILS TO RAISE A 
BR REQUEST AFTER EXTENDED PERIOD OF TIME, 

6.8 END 

END 

THIS MESSAGE IS REPORTED AT THE END OF ONE COMPLETE PASS OF 
THE DISK SYSTEM. 



6. 



MISCELLANEOUS 



IN SOME ADDRESS TESTS THE PROGRAM OEPENS ON WRITTING AND 
READING DATA qORRECTLY FROM THE DlSKiANQ IF IT DOES NOT IT MAY 
REPORT AN ADDRESS FAILURE, WHEN IN FACT IT WAS A DATA FAILURE, 

8,1 SUGGESTED POWER FAIL TEST 

THIS TEST IS SUGGESTED SO THAT THE ABILITY OF THE DISK TO RETAIN 
DATA AFTER A POWER FAILURE HAS OCCURRED MAY BE TESTED, 

FOLLOW THESE STEPS IF NO ERROR OCCURS, ONE PASS SHOULD BE 
SUFFICIENTI 

A) LOAD AND START PFTl 

B) UPON RECEIVING "OK" FROM THE PROGRAM TURN OFF THE POWER 
TO THE MACHINE AND THEN BACK ON AGAIN, 

C) THERE SHOULD BE aTmOST ONE ERROR, ANY MORE IS CONSIDERED 
UNRELIABLE, 



D) PERFORM THE SAME STEPS WITH PFT2. THIS TIME THERE SHOULD 
BE NO ERRORS. 
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ai2'0010 
0li:0040 

idi 1^^0100 
000200 
'?k?0400 
^01000 

■«)ii;2000 

004000 

/il0000 

020000 
040000 
If 0000 
000004 



104403 
1^4407 
104405 

0K0000 



NB0 

BIT0el 

BlTla2 

BIT2»4 

BIT3=10 

BIT4=20 

6115=40 

BlT6al00 

BIT7«:200 

BIT8«400 

8IT9 = J.000 

9IT10=2000 

BIT11=4000 

BIT12S10000 

BIT13=20000 

8IT14=40000 

BIT15=100000 

SCOPCbIOT 

\ 

> 

I 

WRITEsTRAP+3 

WRCHECK=TRAP+7 

READ"TRAP*5 



f"0 



^ t- e 
[- l6 / / 2 
rj; ; ■ ;^^4 

i: !■' :> i 6 

(i-UU 
/ 1 2 
,'14 

^' Alt 

?l;i^'-??2 
t v?4 
k' 2 6 

f^ir'! ;^32 
f :^ e 3 4 
r f 3 6 
;)^-^?40 
:^0!;-,>i42 
;^0^ 'M4 



0^0100 



1t0002 

^t:C000 

6 
v''li'0000 
;^b0012 

^000 

^; 1.^)016 

^'^.■0000 

JE0022 

'0 000 

;-)0 0000 
Ji:0032 

.100000 

■'i0 0036 
000000 
:>;00042 
/■00000 
;i00046 



IMACRO 
ERR'X' 



.REPT 

.♦2 

HALT 

.ENDR 

.*2 

HALT 

.♦2 

HALT 

,*2 

HALT 

,*2 

HALT 

. *2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 



FOR SETTING UP ERROR COUNT 
.MACR ERROR X 

MOV #X,ERCOUNT ISCT UP ERROR COUNT X 

N»N + 1 

.ENDM 

100 
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STAI5 


00f?324 


000167 


001074 




JMP 


STAI6 


000330 


00016 7 


001120 




JMP 


STAI7 


000334 


000167 


001144 




JMP 


STAI10 


000340 


000167 


001210 




JMP 


STAIll 


00i!;344 


0-00167 


001254 




JMP 


STAI12 


000350 


000167 


001320 




JMP 


STAI13 


000354 


000167 


001362 




JMP 


STAI14 


00036Z 


000167 


001426 




JMP 


STAI15 


000364 


000167 


001464 




JMP 


STAI16 


000370 


000167 


001530 




JMP 


STAI17 



ITEST RESET TO CONTROL REGISTER 

ITEST RESET TO CURRENT ADDRESS REGISTER 

iTEST RESET TO WORD COUNT REGISTER 

JTEST RESET TO DISK ADDRESS REGISTER 

ITEST RESET TO DISK EXT. ADDRESS REGISTER 

ITEST RESET TO DATE BUFFER REGISTER 

ITEST RESET TO MAINTENANCE REGISTER 

ICAN WE SET W/R BITS IN DCS REGISTER 

ICAN WE CLEAR THE DCS REGISTER 

lUSiNG DISK CLEAR, 

JCAN WE SET ALL CMA BITS 

ICAN WE CLEAR ALL CMA BITS 

lUSlNG DISK CLEAR 

ICAN WE SET ALL WC BITS 

ICAN WE CLEAR ALL WC BITS 

lUSlNG DISK CLEAR 

ICAN WE SET ALL THE DAR BITS 

ICAN WE CLEAR ALL THE DAR BITS 

lUSlNG DISK CLEAR 
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000374 


000167 


001572 


JMP 


STAI20 


ICAN WE SET ALL THE DAE BITS 


00 400 


01^0167 


001636 


JMP 


STAI21 


ICAN WE CLEAR ALL THE DAE BITS, USING DISK CLEAR 


00K404 


i300167 


001674 


JMP 


STAI22 


lEXECUTE A ONE WORD WRITE 












IFOLLOWED BY A ONE WORD WRITE CONTINUE 


000410 


000167 


002614 


JMP 


STAI40 


lEXECUTE A ONE WORD WRITE CHECK 












IFOLLOWED BY A ONE WORD WRITE CHECK CONTINUE 


000414 


000167 


003564 


JMP 


STAI56 


lEXECUTE A ONE WORD READ 












IFOLLOWED BY A ONE WORD READ CONTINUE 


000420 


000167 


004510 


JMP 


STAI74 


ITEST TRACK INCREMENT 


000424 


000167 


004712 


JMP 


STAI77 


ITEST DISK INCREMENT 


000430 


000167 


005160 


JMP 


STA103 


iTEST THAT NED RAISES ERROR FLAG 


000434 


000167 


005350 


JMP 


ST105X 


ICHECK CMA INHIBIT 


000440 


000167 


005546 


JMP 


NXMTSM 


iTEST NON-EXISTENT MEMORY ERROR 


000444 


00 016 7 


006110 


JMP 


STA106 


ITEST THAT THE DISK WILL NOT TRAP 












lAT PRIORITY 7 


000450 


000167 


006240 


JMP 


STA110 


ITEST THAT THE DISK WILL NOT TRAP 












lAT PRIORITY 6 


000454 


000167 


006370 


JMP 


STA112 


ITEST THAT THE DISK WILL NOT TRAP 












lAT PRIORITY 5 


000460 


000167 


006520 


JMP 


STA114 


ITEAST THAT THE DISK WILL TRAP 












lAT PRIORfTY 4 


00 4 6 4 


000167 


006626 


JMP 


ADTX 


lADDRESS TEST 1 












ICHECK TIMING BY EXECUTING 












lA ONE WORD WRITE 


000470 


2 (6 1 6 7 


007022 


JMP 


ADT2X 


lADDRESS TEST 2 












ICHECK TIMING BY EXECUTING 












lA ONE WORD READ 




000650 




, B 6 5 












1 

IMAINTENANCE 


ROUTINES 




000650 


^500167 


007174 


» 

JMP 


SEIWC 


ILOAD WORD COUNT REG WITH SR 


000654 


200167 


007200 


JMP 


SEICMA 


ILOAO CURRENT ADDRESS REG WITH SR 


00^-660 


1 6 / 


n n ^ ft, A 

0/204 


JMr 


SELD AK 


ILOAD DISK ADDRESS REG WITH SR 


00?664 


000167 


007210 


JMP 


SEL.DAE 


ILOAD DISK EXT, ADDRESS REG WITH SR 


000670 


000167 


007214 


JMP 


SELDBR 


ILOAD DATA BUFFER REG WITH SR 


000674 


1 6 7 


007220 


JMP 


MOVLK 


IMOVE LOOK AHEAD INTO LIGHTS 


00i'.7<-'"0 


000167 


007226 


JMP 


SEUOCS 


ILOAD FUNCTION REG WITH SR 


/ 7 V 4 


00016 7 


007272 


JMP 


STAMP 


ISELECT TRACKS STATICLY 



RFll DATA TEST 

VECTORS USED IN PROGRAM 

#1 LOC 204 DISK INTERRUPT 

#2 LOC 30 EMT (TELETYPE OUTPUT) 

#3 LOC 34 TRAP (DISK HANDLERS) 
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0010^.6 
0015^10 
01312 



00i;':i4 
001/516 
1 i'l 
001K22 
00i;:'?4 
001^26 
001^^3?) 
001vi52 



001.: 3 4 

001f;i36 
1 « 4 ^ 
001P42 
001(>i44 
001046 
00105/1 
001052 
0010£>4 
001056 
1 i:; 6 
001062 
001064 
001066 



001070 
001072 
0011t;74 



001000 



177570 
177776 
177^66 
177562 
177564 
177560 



177460 
177462 
17 7 4 6 4 
17 7 4 6 6 
17 7 4 7 
177472 
177474 
177476 



146723 

:i z 00 

005?0fc0 
k' 
00!?'000 

s 

b 
1 
00f 0P0 
00^000 
00 '/■> 
0000 



0ii4--0f:.0 

000000 
00-0000 



I 

) I/O 

SRI 

CSRI 

TPBi 

TKBl 

TPSi 

TKSl 

J 

IDISK 
) 

DCS! 

WC I 

CMAl 

DARl 

DAE> 

DBRl 

MAI 

ADSl 



.EVEN 

ADDRESS POINTERS 
177570 
177776 
177566 
177562 
177564 
177560 

I/O REGISTERS 

177460 
177462 
177464 
177466 
177470 
177472 
177474 
177476 



iSWnCH REGIISTER 
IPROCESSOR STATUS REGISTER 
ITELETYPE REGISTERS 



IDISK CONTROL REGISTER 
IWORD COUNT REGISTER 
ICURRENT MEMORY ADDRESS REGISTER 
•LOWER 16 BITS OF DISK ADDRESS 
•EXTENSION ADDRESS REGISTER 
IDATA BUFFER REGISTER 
•MAINTENANCE REGISTER 
•LOOK AHEAD REGISTER 



RFll DEDICATE REGISTERS (MEMORY) 



FLAG! 

RANNU: 

WRDCT J 

TRACK! 

DMA I 

PATNUI 

BUFi 

TWRDCT I 

TDMAI 

SWRDCT5 





146723 



Vj 










ERCOUNT:0 



SAVE! 
SAVll 
PASS) 
1 

• RFlt 
J (CAN 
WORKI 
WORKI 
W0RK2 







WORK REGISTERS 
BE CHANGED IN ANY 



I INTERNAL PROGRAM FLAG 

•RANDOM NUMBER PRIME 

•WORKING WORD COUNT 

•WORKING DAE 

•WORKING DAR 

•DATA PATTERN INDEX 

•WORKING DATA BUFFER (OUT«IN> 

•TEMP WORD COUNT 

•TEMP DAR 

•STANDARD WORD COUNT 
•ERROR COUNT FOR MESSAGES. 



ROUTINE) 



PALXll 


V f '7 3 


29-OCT- 


70 107 


PAGE 


l?01?76 


7) 5 




START! 


RESET 




012 7 6 


0100 




MOV 


4 


012 767 


000006 


176672 


MOV 


001112 


00 50^.7 


176670 






001116 


012767 


000340 


177062 


MOV 


001124 


012767 


P10530 


176676 


MOV 


001132 


012767 


000340 


176672 


MOV 


001140 


012 7 6 7 


007776 


176666 


MOV 


001146 


012767 


000340 


176662 


MOV 


001154 


012 7 7 7 


K00340 


177620 


MOV 


001162 


012 7 6 7 


007726 


176630 


MOV 


001170 


012767 


000340 


176624 


MOV 


001176 


00l?067 


177640 




CLR 


0012i>'2 


005067 


177636 




CLR 



#1000, %6 
#6,4 

6 

#340,206 

#EMTRP,30 

#340,32 

#DISK,34 

#340,36 

#340,(S»CSR 

#LOOP,20 

#340,22 

TRACK 

DMA 



ICLEAR THE WORLD 
ISET UP STACK 



ILOCK UP INTERRUPTS 

ISET UP TTY POINTER 

ILOCK UP INTERRUPTS 

ISET UP DISK HANDLER POINTER 

ILOCK UP INTERRRUPTS 

ILOCK UP INTERRUPT LEVELS 

ISET UP FOR SCOPE LOOP 

ILOCK UP PRIORITY 

ICLEAR TRACK REGISTERS 

ICLEAR DAR REGISTERS 
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IWE ARE NOW ENTERING THE STATIC TEST 

lIF THE OPERATOR WOULD LIKE TO CHECK 

JTHE DISK REGISTERS PRIOR TO ENTERING THIS 

ITEST WE HAVE SOME HANDY ROUTINES 

JWHICH WOULD ALLOW YOU TO LOAD THESE 

IREGISTERS UNDER SWITCH REGISTER CONTROL 

IPLEASE REFERENCE THE STARTING ADDRESS 

ITO SEE WHICH ROUTINE BEST SUITS YOUR 

IPROBLEM, 

I 



ITHIS TEST IS DESIGNED TO TEST THE ABILITY OF RESET 
|T0 CLEAR ALL THE DISK REGISTERS 
jTEST CONTROL REGISTER 



0012^6 


000005 






STAIll 


RESET 




ICLEAR THE WORLD 


001210 


017767 


177600 


177652 




MOV 


9DCS» WORK 


IFETCH CONTROL REGISTER 


001216 


032767 




177644 




BIT 


#177577, WORK 


IIS IT CLEARED 


001224 


001405 








BEQ 


XSTAH 


IREGISTER OK <TEST READY) 












ERROR 






001226 


012767 


000000 


177624 


ERR0I 


MOV 


#0#ERCOUNT 


ISET UP ERROR COUNT 




L-^ fc' 1 








NcN + 1 






001234 


004567 


007130 






JSR 


%5iSTAER 


IREPORT STATIC ERROR 


001240 


105767 


177624 




XSTAIIJ TSTB 


WORK 


iTEST FOR READY 


001244 


0010P5 








BNE 


LPSTl 


IBRANCH IF READY 












ERROR 


\N 




001246 


012767 


000001 


177604 


ERRl! 


MOV 


#liERCOUNT 


ISET UP ERROR COUNT 1 




0000P2 








N«N + 1 






001254 


0fc4567 


007110 






JSR 


?i5,STAER 


IREPORT READY NOT SET 


001260 


000004 






LPSTll 


SCOPE 




lENTER SCOPE LOOP 


001262 


001206 








STAIl 














ITCST 


CURRENT 


ADDRESS REGISTER 




001264 


0000^5 






J 

STAiaJ 


RESET 




ICLEAR THE WORLD 


0^11266 


1 7 7 7 


177526 


177574 




MOV 


»CMA»WORK 


IFETCH CMA REGISTER 


001274 


001405 








BEQ 


LPST2 


IREGISTER OK 












ERROR 


\N 




001276 


012767 


000002 


177554 


ERR2 « 


MOV 


#2iERC0UNT 


ISET UP ERROR COUNT 2 




0000P'3 








NsN + 1 






0013C':4 


004567 


007060 






JSR 


%5iSTAER 


IREPORT ERROR 


001310 


000004 






LPST2 J 


SCOPE 




lENTER SCOPE LOOP 


001312 


001264 








STAI2 














jtest 


WORD COUNT REGISTER 




001314 


BP C 005 






I 

STAI35 


RESET 




ICLEAR THE WORLD 


00131 6 


017767 


177474 


177544 




MOV 


®wc,work 


IFETCH WC REG. 


001324 


0?14C)5 








BEQ 


LPST3 


IREGISTER OK 












ERROR 


\N 




001326 


^12767 


000003 


177524 


ERR3I 


MOV 


#3,ERC0UNT 


ISET UP ERROR COUNT 3 












NsN + 1 






001334 




007030 






JSR 


?45,STAER 


IREPORT ERROR 


001340 


0000(^4 






LPSTSi 


SCOPE 




lENTER SCOPE LOOP 


001342 


01314 








STAI3 







DAI V 4 1 


U C- M 
V It k- 


5 Q ». n f T 


/ 


J 10 7 


r AiJt 














J 

ITEST 


DISK ADDRESS REGISTER 




001344 


000005 






J 

STAI4J 


RESET 




ICLEAR THE WORLD 


001346 


017767 


177450 


177514 




MOV 


«BDAR,WORK 


ITETCH DAR REGISTER 


001354 


001405 








BEQ 


LPST4 


IREGISTER CLEARED 












ERROR 


\N 




001356 


012767 


000004 


177474 


ERR4 J 


MOV 


#4iERC0UNT 


ISET UP ERROR COUNT 4 




000005 








K B N ♦ 1 






001364 


004567 


007000 






1 c □ 


545 » STAER 


IREPORT ERROR 


o fill i "1 n\ 
63 15 1 O 7 \0 








1 D C T A 1 

L r 3 T * I 


SCOPE 




itNTER SCOPE LOOP 


001372 


001344 








5 T A I 4 














[test 


DISK EXT t 


ADDRESS REGISTER 




001374 


000005 






1 

STAI5J 


RESET 




ICLEAR THE WORLD 


001376 


017767 


177422 


177464 




MOV 


(S-DAE.WORK 


IFETCH DAE REGISTERS 


00 14?' 4 


001405 








BEQ 


LPST5 


IDAE CLEARED 












ERROR 


\N 




001406 


012767 


000005 


177444 


ERR5I 


MOV 


#5,ERC0UNT 


ISET UP ERROR COUNT 5 




00 00 6 








NbN + I 






001414 


004567 


006750 






JSR 


X5»STAER 


IREPORT ERROR 


1 4 i3 


n Ic' '/! 16 W •+ 






1 D C T K I 


SCOPE 




lENTtK SCOPE LOOP 


0014?2 


001374 








STAI5 














iTEST 


DATA BUFFER REGISTER 




0014 2 4 


00W005 






J 

STAI6: 


RESET 




ICLEAR THE WORLD 


0014^-6 


v;17767 


177374 


177434 




MOV 


9DBR,W0RK 


IFETCH DBR REGISTER 


001434 


0161405 








BEQ 


LPST6 


lOBR CLEARED 












ERROR 


\N 




0014,36 


012767 


000006 


177414 


ERR6! 


MOV 


#6,ERC0UNT 


ISET UP ERROR COUNT 6 












N«N*1 






001444 


004567 


006720 






JSR 


%5,STAER 


IREPORT ERROR 


001450 


fA lA I'/i ^ ffi A 

1(3 4 






LPST6 ! 


SCOPE 




lENTER SCOPE LOOP 


001452 


001424 








STAI6 














'test 


MAINTENANCE REGISTER 




001454 


0^0005 






1 

STAI7S 


RESET 




ICLEAR THE WORLD 


001456 


017767 


177346 


177404 




MOV 


sima,woRk 


IFETCH MAINTENANCE REG 


001464 


001405 








BEQ 


LPST7 


IMA CLEARED 












ERROR 


\N 




001466 


012767 


000007 


177364 


ERR7I 


MOV 


#7»ERC0UNT 


ISET UP ERROR COUNT 7 




000010 








M e N ♦ 1 






001474 


004567 


006670 






JSR 


5i5iSTAER 


IREPORT ERROR 


015 


rn (: Q Ca (A A 






1 Q C T T • 


SCOPE 




ItNTER SCOPE LOOP 


001522 


001454 








STAI7 














;CAN WE SET THE 


FUNCTION BITS IN 


THE DCS REGt 










JBITS 


7 1 6 1 5 , 4 # 3 


2&1 




0015i 4 


012 77 7 


000176 


177302 


STAI10! MOV 


#176, •DCS 


ISET DISK FUNCTION BIT! 


001512 


017767 


177276 


177350 




MOV 


*DCS,WORK 


IFETCH FUNCTION BITS 



PALXll 
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1 




022767 


000376 


177342 




CMP 


#376, WORK 


001526 


»K1410 








f3E0 


LPST10 


001530 


i;12767 


000376 


177334 




MOV 


#376,W0RK1 












ERROR 


\N 


001536 


/! 1 2 7 6 7 


J500010 


177314 


ERR10 : 


MOV 


#10,ERCOUNT 




0C.F"i?ll 








NsN*l 




001544 


004567 


006672 






JSR 


•/.5|STAER1 


001550 


^ ?i ?i 4 






LFST10: 


SCOPE 




001552 


0m5?4 








STAI10 





lARE THE FUNCTION BITS SET 

irUNCTION BITS SET 

JSET UP FOR ERROR REPORT 

JSET UP ERROR COUNT 10 

IREPORT ERROR (ERROR IN FUNCTION BITS) 
lENTER SCOPE LOOP 



P ALXll 


V00 3 


29-OCT- 


70 


001554 


012777 


000176 


177232 


001562 


052777 


000400 


177224 


001570 


017 7 6 7 


177220 


1 77272 


001576 


022767 


000200 


177264 


001604 


001405 






001606 


012767 


000011 


177244 




000012 






001614 


004567 


006550 




001620 


000004 

v l'^ K/ 1/ iC ~ 






001622 


001554 






001624 


312767 


177777 


177240 


001632 


016777 


177234 


177160 


VJ-KJ X O SJ 


017 7 6 7 


177154 


177222 


001646 


026767 


177220 


177214 


001654 


001405 






001656 


012767 


000012 


177174 




000013 






001664 


004567 


006552 




tJ X O f %J 


Pi 4 






001672 


0itl624 






001674 


012777 


177777 


177116 


001702 


052777 


000400 


177104 




005 77 7 


177104 




001714 


001410 






001716 


017767 


177072 


177144 


001724 


312767 


000013 


177126 




'?e0014 






001732 


a04567 


006432 




W f? 1 7 ■< A 

/ ? it/ ± / o 


'7) !/; ty^' J71 n 4 
/J irv it> *t 






0^01740 


016 7 4 






001742 


/i 1 2 7 6 7 


177777 


177122 


0017'J0 


«16777 


177116 


177040 


iTI i/i 1 7 S A 


/) 2 6 7 7 7 


1 7 7 1 1 CI 


177032 


017 6 4 


1 4 1 






5: 1 7 6 6 


.'17767 


177024 


177074 


3 f; 1 7 7 4 


/12767 


!;^00014 


177056 




J^^./*015 






-2 


vjfc4567 


006434 





0107 PAGE 7 
J 

IWILL DISK CLEAR CLEAR THE FUNCTION BITS 



J 



STAIll! 


MOV 


#176,8»DCS 


ISET DISK FUNCTION BITS 




BIS 


#BIT8,»DCS 


•EXECUTE DISK CLEAR 




MOV 


IsncS.WORK 


iTFtrH rONTROL RFC 




CMP 


#200, WORK 


IIS ONLY READY SET 




BEQ 


LPSTll 






ERROR 


\N 




ERRll: 


MOV 


#11»ERC0UNT 


ISET UP ERROR COUNT 11 




N»N*1 








JSR 


XS.STAER 


IREPORT ERROR 


LPSTll! 


SCOPE 




lENTER SCOPE LOOP 




STAIll 






J 

ICAN WE 


SET ALL 


THE CMA BITS 




1 

STA112: 


MOV 


#177777, WORKl 


ISET UP CURRENT ADDR. OF ALL ONES 




MOV 


W0RK1»»CMA 


ILOAD CMA 




MOV 


$CM A , WORK 


IFETCH CHA 




CMP 


W0RK1#W0RK 


ICOMPARE FOR ALL BITS SET 




BEQ 


LPST12 


lALL BITS SET? 

inhplM t**IW ^Clfl 




ERROR 


\N 




ERR12 J 


MOV 


#12,ERC0UNT 


ISET UP ERROR COUNT 12 




NbN^'I 








jSR 


XSiSTAERl 


IREPORT ERROR 


LPST12! 


SCOPE 




lENTER SCOPE LOOP 




STAI12 






JWILL DISK CLEAR - CLEAR THE 


CMA REGISTER 


STAI13! 


MOV 


#177777, •CMA 


ISET CMA EQUAL TO ALL ONES 




BIS 


#BIT8,»DCS 


lEXECUTE DISK CLEAR 




TST 


ISCMA 


ITT^T rnP RTTPl <5FT TW PIMA (RFAn flNII V BTTi 




BEQ 


LPST13 


IWAS THE REST OF CMA CLEARED? 




MOV 


(S9DCS,W0RK 


INOI FETCH CMA REG, 




ERROR 


\N 




ERR13: 


MOV 


#13,ERC0UNT 


ISET UP ERROR COUNT 13 




NbN + 1 








JSR 


%5iSTAER 


IREPORT ERROR 


LPST13: 


SCOPE 




lENTER SCOPE LOOP 




STAI13 






1 

JCAN WE 


SET ALL 


BITS IN WC REGISTER 


J 

STAI14! 


MOV 


#177777, WORKl 


ISET UP MAX. WORD COUNT 




MOV 


WORKl, 9WC 


ILOAD WC REGISTER 




CMP 


WORKl, 9WC 


lARE ALL BITS SET 




BEQ 


LPST14 


lYES! EXIT 




MOV 


(PWCWORK 


INOI FETCH WC REG. 




ERROR 


\N 




ERR14 J 


MOV 


#14,ERC0UNT 


ISET UP ERROR COUNT 14 












JSR 


X5,STAER1 


IREPORT ERROR 
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002006 000004 LPST14: SCOPE lENTER SCOPE LOOP 

002in0 ^^fc■'1742 STAI14 



PALXll 


V003 


29-OCT- 


70 


107 


PAGE 8 














J 

JWILL DISK CLEAR 


l-CLEAR THE WORD 


COUNT REGISTER 


2 1 2 


012777 


177777 


176776 


1 

STAI15: 


MOV 


#177777 . *WC 


ISET WC RCGtSTCR EQUAL TO ALL QNrS 


002/520 


3 & 2 7 7 7 


000400 


176766 




BIS 


#BIT8»fl»DCS 


lEXECUTE DISK CLEAR 


e 2 2 6 


017767 


176764 


177034 




MOV 


|*>WC f WORK 


IFETCH WORD COUNT REGISTER 


C02E34 


014 05 








BEQ 


LPST15 


lYES! EXIT 












ERROR 


\N 




0(22036 


012767 


000015 


177014 


ERR15: 


MOV 


#15 , ERCOUNT 


iSET UP ERROR COUNT 15 




016 








N«N*1 






t"e2044 


004567 


006320 






JSR 


%5iSTAER 


IREPORT ERROR 


002i/50 


000004 






LPST15: 


SCOPE 




lENTER SCOPE LOOP 


P02i;"52 


002012 








STAI15 














1 

JCAN WE 


SET ALL 


THE BITS IN THE 


DAR REGISTER. 


02 2 5 4 


1 2 7 6 7 


177777 


177010 


) 

STA116S 


MOV 


#177777 , WORKl 




002062 


016777 


177004 


176732 




MOV 


WORKl 1 »DAR 


ISET DAR TO ALL ONES 


002070 


017 7 6 7 


176726 


176772 




MOV 


«DAR. WORK 


IFETCH DAR REGISTER 


00 2 7 6 


2 6 76 7 


176770 


176764 




r M p 


WORKl » WORK 


lARE ALL BITS SET 


002104 


014 05 








BEQ 


LPST16 


lYESI EXIT 












ERROR 


\N 




0210 6 


012767 


000016 


176744 


ERR16: 


MOV 


#16 , ERCOUNT 


ISET UP ERROR COUNT 16 




017 








N«N*1 






002114 


004567 


006322 






JSR 


%5#STAER1 


INOT ALL BITS SET REPORT ERROR 


002120 


00 0004 






LPST16: 


SCOPE 




lENTER SCOPE LOOP 


2122 


.•^02054 








STAli6 














1 

JCAN WE 


CLEAR THE DAR REG, WITH 


DISK CLEAR. 


0212 4 


'/j 1 2 7 7 7 


1777 7 7 


176670 


1 

STA117I 


MOV 


#177777, IPDAR 


ISET DAR TO ALL ONES 


02132 




000400 


176654 




BIS 


#BIT8,»DCS 


lEXECUTE DISK CLEAR 


0214 




176656 






TST 


(?DAR 


ITEST FOR 2ER0 DAR 


0214 4 


f'- 1 4 1 








BEQ 


LPST17 


lYES EXIT 


214 6 


'Am 61 


176650 


176714 




MOV 


9DAR,W0RK 


INO BITS SET IN OAR 












ERROR 


\N 




215 4 


012 76 7 


000017 


176676 


ERR17: 


MOV 


#17, ERCOUNT 


iSET UP ERROR COUNT 17 




2 02 








N + 1 






002162 


004567 


006202 






JSR 


%5iSTAER 


IREPORT ERROR 


002166 


000004 






LPST175 


SCOPE 




lENTER SCOPE LOOP 


002170 


002124 








STAI17 














1 

»CAN WE 


SET THE 


EXT, ADDRESS BITS IN THE DAE REGISTER 


0217 2 


312 7 6 7 


0000 3 7 


176672 


1 

STAI20! 


MOV 


#37, WORKl 


1 


2200 


?116777 


176666 


176616 




MOV 


W0RK1»»DAE 


ISET EXT. ADDRESS BITS 


00 2 20 6 


017 7 6 7 


176612 


176654 




MOV 


«DAE» WORK 


IFETCH CONTENTS OF DAE REG, 


002214 


^26767 


176652 


176646 




CMP 


WORKli WORK 


lARE ALL EXT. ADDRESS 8ITS SET 


002222 


01405 








BEQ 


LPST20 


lYESI EXIT 












ERROR 


NN 




002224 

f fJ t, <- C ~ 


.'5 1 2 7 6 7 


000020 


176626 


ERR20: 


MOV 


#20, ERCOUNT 


ISET UP ERROR COUNT 20 




000021 








NaN*l 






002232 


00.4567 


006204 






JSR 


XSiSTAERl 


IREPORT ERROR 


002236 


000004 






LPST20: 


SCOPE 




lENTER SCOPE LOOP 
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) 

ICAN WE 


CLEAR 


THE EXT ADDRESS 


BITS IN THE DAE REG, 










lUSiNG 


DISK CLEAR 




?02242 


012777 


000037 


176554 


1 

STAI21! 


nU V 


07 » At 


ISET EXT. ADDRESS BITS 


002250 


052777 


000400 


176536 








lEXECUTE DISK CLEAR 


002256 


017767 


176542 


176604 




MOV 


9DAE.W0RK 


JFETCH CONTENTS OF DAE 


002264 


001405 








BEQ 


LPST21 


JYESI EXIT 












ERROR 


\N 




002266 


012767 


000021 


176564 


ERR21! 


MOV 


#21iERC0UNT 


ISET UP ERROR COUNT 21 




000022 








NaN*l 






002274 


004567 


006070 






JSR 


%5iSTAER 


IREPORT ERROR 


002300 


000004 






LPSTZi: 


SCOPE 




lENTER SCOPE LOOP 


002302 


002242 








STAI21 
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I 

JDO ONE WORD WRITE FOLLOWED SY ONE WORD WRITE CONTINUE 
JER0R1«BUSY FAILED TO SET 
JER0R2*BUSY FAILED TO CLEAR 
JER0R3»C0NTR0L ERROR WHEN X-FERING DATA 
|ER0R4=DAE INCREMENTED WHEN X-FERING DATA 
|ER0R5=DAR FAILED TO INCREMENT WHEN X-FERING DATA 
IER0R6=W0RD COUNT FAILED TO OVERFLOW 
|ER0R7=CMA FAILED TO INCREMENT 



! 
J 











1 « a « 


EXECUTE 


THE ONE WORD WRITE* • • 


00235^4 


052777 


000400 


176502 


STAI22; 


BIS 


#B1T8,»DCS 
#177777,0UTBUF 


ICLEAR THE DISK WORLD 


(^02312 


012767 


177777 


006570 




MOV 


IDATA TO BE X-FERED 


002320 


012777 


011110 


176472 




MOV 


#OUTBUF,»CMA 


ISET UP CURRENT ADDRISS 


002326 


012777 


177777 


176462 




MOV 


#-l,»WC 


ISET WORD COUNT TO -1 


K02334 


052777 


000003 


176452 




BIS 


#3»»DCS 


IGO WRITE 


002342 


105777 


176446 






TSTB 


(?DCS 


ITEST FOR RDY«0 


002346 


100011 








BPL 


STAI23 


IRDYII0 


002350 


017767 


176440 


176512 


ERORi: 


MOV 
ERROR 


®DCS,WORK 
\N 


IBUSY NOT SET! FETCH DCS 


002356 


012767 
000023 


000022 


176474 


ERR22: 


MOV 
N«N-«-l 


#22»ERC0UNT 


ISET UP ERROR COUNT 22 


002364 


004567 


006000 






JSR 


%5,STAER 


IREPORT ERROR 


002370 


000745 








BR 


STAI22 


IRESTART TEST 


002372 


^/j05067 


176472 




STAI23! 


CLR 


WORK 




002376 


005267 


176466 




INCWAT: 


INC 


WORK 


IWAIT FOR BUSY«0 


2 4 2 


105777 


176406 






TSTB 


9DCS 


lis BUSY CLEARED 


0024P'.6 


100417 








BMI 


STAI24 


IFLAG CLEARED 


2 410 


5 7 6 7 


176454 






TST 


WORK 


IHAVE WE WAITED LONG ENOUGH 


2 414 


001370 








BNE 


INCWAT 


IRDY FAILED TO SET 


2 416 


017767 


176372 


176444 




MOV 


i?DCS, WORK 


IFETCH CONTENTS OF DCS REG 


2 4 2 4 


■.'52767 


000002 


176440 


ER0R2! 


BIS 
ERROR 


#2,W0RK1 

\N 


IWANT DCS SHOULD CONTAIN 


002432 


M2767 
000024 


000023 


176420 


ERR23; 


MOV 
NuN + l 


#23,ERC0UNT 


ISET UP ERROR COUNT 23 


2 4 4 


00 4567 


005776 






JSR 


%5»STAER1 


IREPORT ERROR 


1^02444 


000717 








BR 


STAI22 


IRESTART TEST 


F02446 




176342 


176414 


STAI241 


MOV 


i!6DCS,W0RK 


IFETCH CONTENTS OF DCS REG 


002454 


005767 


176410 






TST 


WORK 


IIS ERROR FLAG SET 


002460 


100012 








BPL 


STAI25 


INOI X-FER ok 


002462 


012767 


000202 


176402 


ER0R3: 


MOV 
ERROR 


#202, WORKl 
\N 


IWHAT DCS SHOULD CONTAIN 


2 4 7 


fn2767 
000025 


000024 


176362 


ERR24: 


MOV 
N«N + 1 


#24,ERC0UNT 


ISET UP ERROR COUNT 84 


P 2 4 7 6 


004567 


005740 






JSR 


%5iSTAERl 


IREPORT ERROR 


2502 


000167 


177576 






JMP 


STAI22 


IRESTART TEST 


B02506 


n7767 


176312 


176354 


STAI25: 


MOV 


SSDAE.WORK 


lis EXT. ADDRESS CLEAR 


2 514 


001407 






ER0R4 : 


BEQ 
ERROR 


STAI26 

\N 


IDAE OK 


2 516 


.n2767 
ki00026 


000025 


176334 


ERR25J 


MOV 
NsN + 1 


#25,ERC0UNT 


ISET UP ERROR COUNT 25 


2 62 4 


004567 


005640 






JSR 


%5iSTAER 


IREPORT ERROR 


002530 


000167 


177550 






JMP 


STA122 


IRESTART TEST 
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-1 


n 171 5 c ■» >i 


1/1 7 7 A 7 


1 / 0<JO<i 


4 T A 1 A 

1 7 il 




M n u 


An » WURK 


002542 


'•522767 


n f% n n ^ M 


176320 




CMP 


#B I T0 1 WORK 




1^^1412 








8E0 


STAI27 


002552 


012767 


000001 


176312 




MOV 


*BI T0 • WORKl 










ER0R5 ! 


ERROR 


\N 


K02560 


i^il2767 


000026 


176272 


ER''26 I 


MOV 


#26, ERCOUNT 




H 16 W 10 c / 








Kl ■ M X H 
N • (N * X 




002566 


5^04567 


005650 






JSR 


X5,STAER1 


002572 


M00167 


177506 






JMP 


STAI22 



IWAS DAR INCREMENTED BY 1 
lis DAR CORRECT 
IDAR OK 

IWHAT DAR SHOULD CONTAIN 

ISET UP ERROR COUNT 26 

IREPORT ERROR 
IRESTAPT TEST 
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176214 


176264 


STAI27: 


MOV 


SiWCjWORK 


IFCTCH WORD COUNT 


2 6 4 


1(1 1 4 7 








BEQ 


STAI30 


IWORD COUNT DID OVERFLOW 










ER0R6 : 


ERROR 


\N 




K 2 6 6 


>)12767 


t?00027 


176244 


ERR27 ; 


MOV 


#27,ERC0UNT 


ISCT UP ERROR COUNT 27 












N*N*1 






2 6 1 4 


/e4567 


J105550 






JSR 


%5iSTAER 


IWORD COUNT FAILED TO OVERFLOW 


V,?,2k2% 


/)e0167 


177460 






JMP 


STAI22 


•RESTART TEST 


\' t" ? 6 2 4 




176170 


176236 


STAI30 : 


MOV 


(?»CMA,W0RK 


IFETCH CURRENT ADDRESS 




/;12767 


M11112 


176232 




MOV 


#0UTBUF+2,W0RK1 


IWHAT CMA SHOULD EQUAL 


;^it'.?64j!i 




176226 


176222 




CMP 


WORKl.WORK 


IIS CMA CORRECT 


?l??646 


.'501407 








BEQ 


STAI31 


lYES EXECUTE CONTINUE 










ER0R7 2 


ERROR 


\N 






/:12767 


J? 3 


176202 


ERR30 5 


MOV 


#30,ERCOUNT 


ISET UP ERROR COUNT 30 












N = N + 1 






/.£4567 


'^05560 






JSR 


%5,STAER1 


IREPORT ERROR IN CMA 




'?i^^"167 


177416 






JHP 


STAI22 


lERROR RESTART TEST 
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ITAPE 2 

J TEST WRITE 

lA WRITE CONTINUE WILL BE EXECUTED NOW 
IWORD COUNT WILL BE SET TO -1 AGAIN 
) 

JEROR10»8USY NOT SET BY 00 
lERORllsBUSY NOT CLEARED BY OVERFLOW 
JER0R12=0ISK ERROR OCCURCD WHILE X-FERING 
IER0R13SDAE INCREMENTED WHEN CONTINUE WAS EXECUTED 
IER0R14=DAR DID NOT EQUAL 2 AFTER SECOND X-FER 
JER0R15»WC DID NOT OVERFLOW AT THE END OF X-FER 
IER0R16SCMA DID NOT EQUAL 0UTBUF*2 AT END OF X-FER 
I 



I 



002666 


012777 


177777 


176122 


STAI31 J 


MOV 


#177777, fiWC 
#BIT0,»DCS 


ISCT WC TO -1 


002674 


052777 


000001 


176112 




BIS 


ISET GO TO CONTINUE 


002702 


105777 


176106 






TSTB 


9DCS 


ITEST FOR ROY SET 


002706 


100012 








BPL 


STAI32 


IBUSY WAS SET BY CO 


002710 


017767 


176100 


176152 


EROR10! 


MOV 
ERROR 


*DCS,WORK 
\N 


IFETCH CONTENTS OF DCS 


002716 


012767 
000032 


000031 


176134 


ERR31S 


MOV 
N«N + 1 


#31,ERC0UNT 


ISET UP ERROR COUNT 31 


002724 


004567 


005440 






JSR 


XSiSTAER 


IREPORT BUSY NOT SET 


002730 


000167 


177350 






JMP 


STAI22 




002734 


005067 


176130 




STAI32S 


CLR 


WORK 




002740 


105777 


176050 




INCBUSYJTSTB 


*DCS 


ITST FOR ROY SET BY OVERFLO 


002744 


100415 








BMI 


STAI33 


IREADY SET CONTINUE 


002746 


005267 


176116 






INC 


WORK 


IWAIT FOR RDY«1 


&;02752 


01^1372 








BNE 


INCBUSY 


ICO WAIT FOR RDY 


002754 


017767 


176034 


176106 


ERORlll 


MOV 
ERROR 


i?DCS, WORK 
\N 


IFETCH CONTENTS OF DCS 


'^02762 


012767 
000033 


000032 


176070 


ERR32 J 


MOV 
N*N*1 


#32,ERC0UNT 


ISET UP ERROR COUNT 32 


002770 


004567 


005374 






JSR 


XS.STAER 


IREPORT BUSY NOT CLEARED 


002774 


000167 


177304 






JMP 


STAI22 


IRESTART ROUTINE 


003000 


005777 


176010 




STAI33J 


TST 


»OCS 


IDID AN ERROR OCCUR WHILE X-FERING 


W03'/50 4 


100015 








BPL 


STAI34 


INO CONTINUE 


3 2 6 


t'17767 


176002 


176054 




MOV 


*DCS,WORK 


lYES! CONTENTS OF DCS 


i^030l4 


-517767 


176004 


176050 


ER0R12! 


MOV 
ERROR 


•DAEiWORKl 
\N 


lEXT ERROR BITS 


!'03022 


312767 
000034 


000033 


176030 


ERR33: 


MOV 
N«N*1 


#33,ERC0UNT 


ISET UP ERROR COUNT 33 


0ii3030 


004567 


005406 






JSR 


X5,STAER1 


IREPORT ERROR OCCURRED. 


7 3 3 4 


000167 


177244 






JMP 


STAI22 


IRESTART ROUTINE 


!;'.2)3040 


305777 


175760 




STAI34: 


TST 


9DAE 


iDlD DAE INC. BY DATA WAS X-FERRED 


£ 3 4 4 


t301412 








BEQ 


STAI35 


lOK IT DID NOT INC 


//£3(?.46 


«17767 


175752 


176014 


ER0R13! 


MOV 
ERROR 


fDAE.WORK 
\N 


lERROR IT INCREMENTED 


003P54 


-312767 

',;:i;0035 


000034 


175776 


ERR34: 


MOV 
N«N + l 


#34,ERC0UNT 


ISET UP ERROR COUNT 34 


;'if . 3!^62 


004567 


005302 






JSR 


J«5,STAER 


IREPORT DAE INCREMENTED 


:'^:3/566 


il00167 


177212 






JMP 


STAI22 




?03;^72 


^117767 


175724 


175770 


STAI35: 


MOV 


CDAR.WORK 


lOID DAR INCREMENT ON CONTINUE 


^07100 


;a2767 


000002 


175764 




MOV 


#2iW0RKl 


IWHAT OAR SHOULD CONTAIN 
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003106 


026767 


17i5760 


175754 




CMP 


WORKl* WORK 


1 IS OAR CORRECT 


? 3 1 1 4 


/j 1 4 7 








BEQ 


STA 136 


IDAR OK 










ER0R14 s 


ERROR 


\N 




003116 


012767 


000035 


175734 


ERR35 5 


MOV 


#35 , ERCOUMT 


iSCT UP ERROR COUNT 35 




000036 








N«N*1 






003124 


004567 


005312 






JSR 


%5iSTAERl 


JREPORT DAR INCORRECT 


e 3 1 3 


000167 


177150 






JMP 


STAI22 


iRE-START ROUTINE 


003134 


017767 


175656 


175726 


ST A I 36 J 


MOV 


9WC 1 WORK 


jFETCH WORD COUNT 


003142 


001407 








BEQ 


STA 137 


IWORD COUNT OVERFLOWED 










ER0R15 : 


ERROR 


\N 




003144 


012767 


000036 


175736 


ERR36 ; 


MOV 


#36,ERC0UNT 


ISET UP ERROR COUNT 36 




000037 








N»N*1 






003152 


004567 


005212 






JSR 


%5»STAER 


iREPORT WORD COUNT FAILED TO CLEAR 


003156 


000167 


177122 






JMP 


STAI22 


•RESTART ROUTINE 


003162 


017767 


175632 


175700 


STAI37 \ 


MOV 


9>CMA» WORK 


IFETCH CMA 


003170 


012767 


011114 


175674 




MOV 


#0UTBUF + 4i.W0RKl 


IWHAT CMA SHOULD EQUAL 


00 317 6 


026767 


175670 


175664 




CMP 


WORKl t WORK 


lis CMA CORRECT 


003204 


001407 








BEQ 


LPST22 


ICMA WAS CORRECT 










ER0R161 


ERROR 


\N 




3 2 6 


012767 


000037 


175644 


ERR37 J 


MOV 


#37,ERC0UNT 


ISET UP ERROR COUNT 37 




000040 








N»N*1 






003214 


004567 


005222 






JSR 


%5iSTAERl 


IREPORT CMA INCORRECT 


003220 


000167 


177060 






JMP 


STAI22 


IRESTART ROUTINE 


003224 


000004 






LPST22! 


SCOPE 




lENTER SCOPE LOOP 


003226 


002304 








STAI22 
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\ 




TEST WRITE CHECK 












IDO A ONE WORD WRITE CHECK FOLLOWED BY 










lA ONE 


WORD WRITE CHECK CONTINUE 












1 

IER0FI17 


sBUSY 


FAILED TO SET 












IEROR20 


sBUSY 


FAILED TO CLEAR 












1ER0R21 


sDISK 


ERROR WHEN X-FERiNG 


DATA 










JER0R22 


aDAE INCREMENTED WHEN X-FERING DATA 










IER0R23 


=OAR FAILED TO INCREMENT 


WHEN X-FERINS DATA 










IER0R24 


sWORD 


COUNT FAILED TO OVERFLOW 










IER0R25 
I 


=CMA FAILED TO INCREMENT 












1 

]• • ^EXECUTE 


THE ONE WORD WRITE 


CHECK* » • 




'.^5 5 2 7 7 7 


000400 


175556 


STAI40S 


BIS 


#BIT8,»DCS 


ICLEAR THE DISK WORLD 


•^Z3236 


•mibi 


177777 


005644 




MOV 


#177777, OUTBUF 


IDATA TO BE X-FERED 


P'/'3244 


/312777 


011110 


175546 




MOV 


#OUTBUF,»CMA 


ISET UP CURRENT ADDRESS 


fi;'3252 


612717 


177777 


175536 




MOV 


#-l,#WC 


ISET WORD COUNT TO -1 


^■03260 


MS;2777 


000007 


175526 




BIS 


#7, •DCS 


IGO WRITE CHECK 


f>'^3266 


105777 


175522 






TSTB 


• DCS 


ITEST FOR READY 


?03272 


1C:0011 








BPL 


STAI41 


INOT READY 


?^3274 


;n7767 


175514 


175566 




MOV 


9>DCS,W0RK 


JSETI FETCH DCS 










ER0R17J 


ERROR 


\N 




1^0331^2 


>:12767 


000040 


175550 


ERR40! 


MOV 


#40,ERCOUNT 


ISET UP ERROR COUNT 40 




^"00041 








N"N + 1 






'.'03310 


304567 


005054 






JSR 


%5iSTAER 


IREPORT ERROR 


7^3314 


l,"'00745 








BR 


STAI40 


IRESTART TEST 


('^3316 


m5<^(i7 


175546 




STAMi: 


CLR 


WORK 




^03322 


305267 


175542 




WCWAT: 


INC 


WORK 


JWAIT FOR READY 


riy3 326 


105777 


175462 






TSTB 


9DCS 




? 3332 


100417 








BMI 


STAI42 


IFLAG SET 


Z 3 3 3 4 


005767 


175530 






TST 


WORK 


JHAVE WE WAITED LONG ENOUGH 


/•/;3340 


a01370 








BNE 


WCWAT 


IREADY FAILED TO SET 


9 ic' 3 34 2 


1^7767 


175446 


175520 




MOV 


fl6DCS,W0RK 


IFETCH CONTENTS OF DCS REG 


.^:^3350 


-152767 


000006 


175514 




BIS 


#6,W0RK1 


JWANT DCS SHOULD CONTAIN 










EROR20: 


ERROR 


\N 






/) 1 2 7 6 7 


000041 


175474 


ERR415 


MOV 


#41,ERC0UNT 


JSET UP ERROR COUNT 41 




/'00042 








N«N*1 






003364 


/}04567 


005052 






JSR 


%5,STAER1 


IREPORT ERROR 


0^^3370 


■;)00717 








BR 


STAI40 


IRESTART TEST 


003372 


^17767 


175416 


175470 


STAI42J 


MOV 


*DCS,WORK 


IFETCH CONTENTS OF DCS REG 


1£ 3 4 1?) 


100021 








BPL 


STAI43 


INOI X-FER OK 


0163402 


026727 


175462 


120006 




CMP 


WORK, #120006 


IDID WCE OCCUR 


033410 


001002 








BNE 


.*6 




003412 


012767 


120000 


175452 




MOV 


#120000, WORKl 


lYES WCE OCCURRED 


P;03420 


352767 


000006 


175444 




BIS 


#6,W0RK1 


IWHAT DCS SHOULD CONTAIN 










ER0R21! 


ERROR 


\N 




003426 


in2767 


000042 


175424 


ERR42 J 


MOV 


#42,ERC0UNT 


ISET UP ERROR COUNT 42 




^00043 








N«N*1 






003434 


?104567 


005002 






JSR 


%5iSTAERi 


IREPORT ERROR 


003440 


000167 


177564 






JMP 


STAI40 


IRESTART TEST 


003444 


017767 


175354 


175416 


STAI43! 


MOV 


»DAE,W0RK 


IJS EXT. ADDRESS CLEAR 


0fc;3452 


001407 








BEQ 


STAI44 


IDAE OK 










ER0R22! 


ERROR 


\N 
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312767 


000043 


175376 


ERR43: 


MOV 


#43,ERC0UNT 


ISET UP ERROR COUNT 43 




1^ 4 4 








NssN + 1 






■y'L'6 4 62 


3234567 


004702 






JSR 


%5iSTAER 


IRCPORT ERROR 


7 K 3 4 6 6 


■'500167 


177536 






JMP 


STAI40 


IRESTART TEST 


?ii3472 


.n7767 


175324 


175370 


STAI44: 


MOV 


@>OAR, WORK 


JWAS OAR INCREMENTED BY 1 


f ? 3500 


;^22767 


000001 


175362 




CMP 


#BIT0,WORK 


IIS OAR CORRECT 


703506 


:'101412 








BEQ 


STAI45 


IDAR OK 


2 5 1 2) 


vn2767 


0000!?)1 


175354 




MOV 


#BIT0,WORK1 


IWHAT DAR SHOULD CONTAIN 










EROR235 


ERROR 


\N 


?^3516 


>12767 


000044 


175334 


ERR44 : 


MOV 


#44,ERC0UNT 


ISET UP ERROR COUNT 44 




p;- 4 5 








NaN*l 




i ;}3524 


■■^fc4567 


004712 






JSR 


%5iSTAERl 


IREPORT ERROR 




>ifc:0167 


177474 






JMP 


STAI40 


IRESTART TEST 


; / '55 34 


'517767 


175256 


175326 


STAI45: 


MOV 


(»WC,WORK 


•FETCH WORD COUNT 


h :^ 5 4 2 


:i01407 








BEQ 


STAI46 


IWORO COUNT DID OVERFLOW 










ER0R24 ! 


ERROR 


\N 


:•: y- 3 5 4 4 


,-112767 


!7!00045 


175306 


ERR45 : 


MOV 


#45,ERC0UNT 


ISET UP ERROR COUNT 45 




It. Z 4 6 








NsN*l 






I' ^3552 


^^04567 


004612 






JSR 


%5iSTAER 


IWORO COUNT FAILED TO OVERFLOW 


^ 1:3556 


:^fc0167 


177446 






JMP 


STAI40 


IRESTART TEST 


f R3562 


7il71bl 


175232 


175300 


STAI,46! 


MOV 


(5>CMA, WORK 


IFETCH CURRENT ADDRESS 


^: 3 5 7 


,512767 


011112 


175274 




MOV 


#0UTBUF + 2,, WORKl 


IWHAT CMA SHOULD EQUAL 


3 5 7 6 


A 2 hi 67 


175270 


175264 




CMP 


WORKl.WORK 


lis CMA CORRECT 


r 3 6 4 


Al\A7'l 








BEQ 


STAI47 


lYES EXECUTE CONTINUE 










ER0R25: 


ERROR 


\N 




0^^-3606 


'U2767 


000046 


175244 


ERR46 : 


MOV 


#46,ERC0UNT 


ISET UP ERROR COUNT 46 




w'iZ'Z047 








N B N + 1 




:-■ 3 6 1 4 


.404567 


004622 






JSR 


%5,STAER1 


IREPORT ERROR IN CMA 


;■■ t* 3 6 2 iiJ 


i^i 160167 


177404 






JMP 


STAI40 


lERROR RESTART TEST 
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I 

Ik WRITE CHECK CONTINUE CONTINUE WILL BE EXECUTED NOW 

IWORD COUNT WILL BE SET TO -i AGAIN 

J 

JER0R26=BUSY WAS NOT SET BY GO 
IER0R27=BUSY NOT CLEARED BY OVERFLOW 
JEROR30=DISK ERROR OCCURRED WHILE X-FERING 
JER0R31SDAE INCREMENTED WHEN CONTINUE WAS EXECUTED 
IER0R32»DAR DID NOT EQUAL 2 AFTER SECOND X-FER 
jER0R33aWC DID NOT-0 AFTER X-FER 











jER0R34aCMA DID 
» 


N0T«0UTBUF+2 AT 


END or X-FER 


003624 


012777 


177777 


175164 


1 

STAI47! 


MOV 


#177777, fl»WC 


ISET WC TO -1 


f 03632 


052777 


000001 


175154 




BIS 


#BIT0,»DCS 


ISET GO TO CONTINUE 


f;.03640 


105777 


175150 






TSTB 


9DCS 


ITEST FOR READY 


P03644 


100012 








BPL 


STAI50 


1 


003646 


017767 


175142 


175214 




MOV 


(SDCS.WORK 


IFETCH CONTENTS OF DCS 










ER0R26; 


ERROR 


SN 




ei^'3654 


;n2767 


000047 


175176 


ERR47 ! 


MOV 


#47,ERC0UNT 


ISET UP ERROR COUNT 47 




000050 








N«N*1 






003662 


004567 


004502 






JSR 


•/.SiSTAER 


IREPORT BUSY NOT SET 


003666 


000167 


177336 






JMP 


STAI40 




003672 


005067 


175172 




STAI50: 


CLR 


WORK 




203676 


105777 


175112 




WCBUSI : 


TSTB 


i?OCS 


ITST FOR RDY SET BY OVERFLOW 


003702 


100415 








BMI 


STAI51 


IBRANCH IF READY SET 


003704 


005267 


175160 






INC 


WORK 


IWAIT FOR BUSY»0 


? i<) 3 7 1 


001372 








BNE 


WCBUSI 


IGO WAIT FOR RDY 


i^j03712 


017767 


175076 


175150 




MOV 


9DCS,W0RK 


IFETCH CONTENTS OF DCS 










ER0R27! 


ERROR 


\N 




003720 


012767 


000050 


175132 


ERR50! 


MOV 


#50,ERCOUNT 


ISET UP ERROR COUNT 50 




000051 








N«N*l 






1/03726 


004567 


004436 






JSR 


X5,STAER 


IREPORT RDY NOT SET 


fi03732 


000167 


177272 






JMP 


STAI40 


IRESTART ROUTINE 


003736 


005777 


175052 




STAI51! 


TST 


• DCS 


lOID AN ERROR OCCUR WHILE X-FERING 


003742 


100024 








BPL 


STAI52 


INO CONTINUE 


if 03744 


217767 


175044 


175116 




MOV 


(?DCS,WORK 


lYESI CONTENTS OF DCS 


^03752 


026727 


175112 


120006 




CMP 


WORK, #120006 




f^03760 


001002 








BNE 


.*6 




003762 


012767 


120000 


175102 




MOV 


#120000, WORKl 




?103770 


^52767 


000006 


175074 




BIS 


#6i WORKl 


lEXT ERROR BITS 










EROR30J 


ERROR 


\N 




Z03776 


/)12767 


000051 


175054 


ERR51: 


MOV 


#51,ERC0UNT 


ISET UP ERROR COUNT SI 




000052 








N»N*1 






i'04!7504 


■-504567 


004432 






JSR 


XSiSTAERl 


IREPORT ERROR OCCURRED 


;'04?110 


000167 


177214 






JMP 


STAI40 


IRESTART ROUTINE 


/"04yi4 


a05777 


175004 




STAI52 J 


TST 


»DAE 


IDID DAE INC. BY DATA WAS X-FERED 




,■501412 








8EQ 


STAI53 


lOK IT DID NOT INC 


?^:4222 


;U7767 


174776 


175040 




MOV 


•DAE.WORK 


lERROR IT INCREMENTED 










ER0R31: 


ERROR 


\N 




;'k:4030 


1121 tl 


000052 


175022 


ERR52: 


MOV 


#52,ERC0UNT 


ISET UP ERROR COUNT 52 




300053 








N«N*1 






^^^^45^36 


t'!04567 


004326 






JSR 


X5,STAER 


IREPORT DAE INCREMENTED 


I-' ? 4 1;: 4 2 


000167 


177162 






JMP 


STAI40 
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004046 


017767 


174750 


175014 


STAI53J 


MOV 


9DAR,W0RK 


lOID DAR INCREMENT ON CONTINUE 


004054 


012767 


000002 


175010 




MOV 


#2»W0RK1 


IWHAT DAR SHOULD CONTAIN 


f;04062 


.526767 


1750(74 


175000 




CMP 


WORKl.WORK 


IIS OAR CORRECT 


004070 


001407 








BEO 


STAI54 


JDAR OK 










ER0R32 J 


ERROR 


\N 




904072 


012767 


000053 


174760 


ERR53 J 


MOV 


#53,ERC0UNT 


JSET UP ERROR COUNT P3 




000054 








N«N*1 






004100 


004567 


004336 






JSR 


XSiSTAERl 


IREPORT DAR INCORRECT 


(^04104 


000167 


177120 






JMP 


STAI40 


IRE-START ROUTINE 


004110 


017767 


174702 


174752 


STAI54I 


MOV 


9WC,W0RK 


IFETCH WORD COUNT 


004116 


001407 








BEQ 


STAI55 


IWORD COUNT OVERFLOWED 










ER0R33! 


ERROR 


\N 




01^4120 


012767 


000054 


174732 


ERR54: 


MOV 


#54,ERC0UNT 


ISET UP ERROR COUNT 94 




000055 








N»N* 1 






004126 


004567 


004236 






JSR 


X5,STAER 


IREPORT WORD COUNT FAILED TO CLEAR 


£''04132 


000167 


177072 






JMP 


STAI40 


IRESTART ROUTINE 


004136 


017767 


174656 


174724 


STAI55S 


MOV 


9CMA,W0RK 


1 FETCH CMA 


004144 


012767 


011114 


174720 




MOV 


#0UTBUF*4,W0RK1 


IWHAT CMA CHOULD EQUAL 


?04i52 


026767 


174714 


174710 




CMP 


W0RK1» WORK 


IIS CMA CORRECT 


004160 


001407 








BEQ 


LPST40 


ICMA WAS CORRECT 










ER0R34: 


ERROR 


\N 




004162 


■^12767 


:?000?5 


174670 


ERR55; 


MOV 


#55,ERC0UNT 


ISET UP ERROR COUNT 55 




i^00056 








N|nN*l 






K04170 


004567 


004246 






JSR 


%5iSTAERl 


IREPORT CMA INCORRECT 


P.04174 


000167 


177030 






JMP 


STAI40 


IRESTART ROUTINE 


0E4200 


000004 






LPST40? 


SCOPE 




lENTER SCOPE LOOP 


?04202 


?)fci3230 








STAI40 







PALXll 


V003 


29-OCT- 


70 


; ■ £ 2 4 


J52777 


000420 


174602 


^'" 4 ;? 1 2 


312 76 7 


Xlllll 


004670 


»^ 4 ? 2 


.312777 


011110 


174572 


1^ 4 2 2 6 


.312777 


mill 


174562 


■■■ 2 4 23 4 


''52777 


000005 


174552 


.'£'4 242 


105777 


174546 




1(M 2 4 6 


100011 






r f/ 4 250 


?5 1 7 7 6 7 


174540 


174612 


/■ 4 2 5 6 


:'j 1 2 7 6 7 


000056 


174574 




I'' fc 5 7 






/ 2 4 2 6 4 


I'l 4 5 6 7 


00410 




io ^ 2 7 


-> (Vi /T( -7 C 

■'i k" tr' / 4 3 






■/ 1; 4 2 7 2 


^4 f7, K rji ^ "T 

. -I It' t> 7 


174572 




i' 24 27 6 


30526 7 


174566 




4 3 e; 2 


105777 


17 4 50 6 




4 3 ? 6 


100417 






wi^4310 


B 5 7 6 7 


174554 




.V04314 


^01370 






/■ 164316 


/j17767 


174472 


174544 


/ Z 4 3 2 4 


'.^52767 


000 5 


174540 


!■ ■ t' 4 3 3 2 


ii 1 2 7 6 7 


00 057 


174520 




'11-0060 






f^' 4 3 4 B 


4 5 6 7 


04 07 6 




i'. 4 34 4 


3 00 717 






/ e. 4 34 6 




174442 


174514 


/;£43&4 


■^05767 


174510 




1- /. 4 3 6 


100012 






/ V- 4 3 6 2 


?*12767 


f*) 3 


174502 


Z 4 3 7 


312 76 7 


000060 


174462 




fA. fA ft, ft. ^ A 






004376 




004040 




7 % 4 4 55 2 


i^'00167 


177576 




? 4 4 ? 6 


1111 tl 


174412 


174454 


p; 1? 4 4 1 4 


^Qj^lbl 


174450 




P «1 4 2 K 


7) IS 1 4 / 






f;e4422 


/)12767 


000061 


174430 
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I TEST READ 

lONE WORD READ FOLLOWED BY A ONE WORD 

JREAD CONTINUE. 

I 

JER0R35a8USY WAS NOT SET BY GO 
>ER0R36sBUSY NOT CLEARED BY OVERFLOW 
JER0R37SDISK ERROR OCCURRED WHILE X-FERING DATA 
JEROR40=DAE INCREMENTED WHEN X-FERiNG DATA 
)ER0R41«DAR FAILED TO INCREMENT WHEN X-FERINC DATA 
JER0R42aW0RD COUNT FAILED TO OVERFLOW 
jER0R43aCMA FAILED TO INCREMENT 



J« • ^EXECUTE THE ONE WORD READ* • * 



STAI56 ! 


BIS 


#B!T8,l?DCS 


ICLEAR THE DISK WORLD 




MOV 


#177777, OUTBUF 


IDATA TO BE X-FERED 




MOV 


#OUTBUF,»CMA 


ISET UP CURRENT ADDRESS 




MOV 


#-l,«iWC 


ISET WORD COUNT TO -1 




BIS 


#5i»DCS 


IGO READ 




tstb 


51DCS 


ITEST FOR BUSY»1 




BPL 


STAI57 


JBUSY SET 




MOV 


fDCS. WORK 


IBUSY NOT SETl FETCH DCS 


ER0R35 : 


ERROR 


\N 




ERR56 : 


MOV 


#56,ERC0UNT 


ISET UP ERROR COUNT 56 




N»N + 1 








JSR 


'/<5i STAER 


IREPORT ERROR 




BP 


STA I 56 


IRESTART TEST 


STAI57: 


CLR 


WORK 




RDWAI: 


INC 


WORK 


IWAIT FOR BUSY=0 




TSTB 


9DCS 


IIS BUSY CLEARED 




BMI 


STAI60 


IFLAG CLEARED 




TST 


WORK 


IHAVE WE WAITED LONG ENOUGH 




8NE 


RDWAT 


IBUSY FAILED TO CLEAR 




MOV 


e»DCS 1 WORK 


IFETCH CONTENTS OF DCS REG 




B I S 


#5 1 WORKl 


IWANT DCS SHOULD CONTAIN 


ER0R36 : 


ERROR 


\N 




ERR57: 


MOV 


#57,ERC0UNT 


ISET UP ERROR COUNT 57 




N 8 N + 1 








JSR 


%5iSTAERl 


IREPORT ERROR 




BR 


STAI56 


IRESTART TEST 


STAI60! 


MOV 


S»DCS,WORK 


IFETCH CONTENTS OF DCS REG 




TST 


WORK 


IIS ERROR FLAG SET 




BPL 


STAI61 


INOI X-FER OK 




MOV 


#3iW0RKl 


IWHAT DCS SHOULD CONTAIN 


ER0R37! 


ERROR 


\N 




ERR60 : 


MOV 


#60,ERCOUNT 


ISET UP ERROR COUNT 60 




NsN*l 








JSR 


XSiSTAERl 


IREPORT ERROR 




JMP 


STAI56 


IRESTART TEST 


STAI6I: 


MOV 


^DAE.WORK 


IIS EXT. ADDRESS CLEAR 




TST 


WORK 


IDAE SHOULD NOT HAVE INC, 




BEQ 


STAI62 


IDAE OK 


EROR40: 


ERROR 


\N 




ERR61 : 


MOV 


#61,ERC0UNT 


ISET UP ERROR COUNT 61 



FALXll 


V0i23 


29-OCT- 


70 


1 07 
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000062 








N»N*1 






2; 4 4 3 kJ 


024567 


003734 






JSR 


XSiSTAER 


IREPORT ERROR 


ff;4434 


000167 


177544 






JMP 


STAI56 


IRESTART TEST 


?; K 4 4 4 


317767 


174356 


174422 


STAI62t 


MOV 


*DAR,WORK 


IWAS DAR INCREMENTED BY 1 


? 4 4 4 6 


1^22767 


000001 


174414 




CMP 


#BIT0,WORK 


lis DAR CORRECT 


y. it 4 45 4 


0(31412 








BEQ 


STAI63 


IDAR OK 


4 4 5 6 


^12767 


000001 


174406 




MOV 


#B1T0,WORK1 


JWHAT DAR SHOULD CONTAIN 










ER0R41: 


ERROR 


SN 




t 4 4 6 4 


tU2767 


000062 


174366 


E:RR62 J 


MOV 


#62,ERC0UNT 


ISET UP ERROR COUNT 62 




^e;0063 








N«N*1 






^ 4 4 7 2 


004567 


003744 






JSR 


XS.STAERl 


IREPORT ERROR 


' K 4 4 7 6 


0^0167 


177502 






JMP 


STAI56 


IRESTART TEST 


4 5 2 


'.'117767 


174310 


174360 


STAI638 


MOV 


i?WC,WORK 


IFETCH WORD COUNT 


'/;54510 


■.:)01407 








BEO 


STAI64 


IWORD COUNT DID OVERTLOW 










ER0R42J 


ERROR 


\N 




!-f^'45l2 


012767 


000063 


174340 


ERR63 : 


MOV 


#63,ERC0UNT 


ISET UP ERROR COUNT 63 




000064 








N"N + 1 






: 4 5 2 E 


^j04567 


003644 






JSR 


%5|STAER 


IWORD COUNT FAILED TO OVERFLOW 


■; t 4'324 


000167 


177454 






JMP 


STAI56 


IRESTART TEST 




Alllbl 


174264 


174332 


STAI64: 


MOV 


9»CMA.W0RK 


IFETCH CURRENT ADDRESS 


' ;'.4t;3 6 


'"512767 


011112 


174326 




MOV 


#0UTBUF+2,W0RK1 


IWHAT CMA SHOULD EQUAL 


,'".14 54 4 


'&2tlbl 


174322 


174316 




CMP 


WORKliWORK 


IIS CMA CORRECT 


^•■k^45&2 










BEQ 


STAI65 


lYES EXECUTE CONTINUE 










ER0R43: 


ERROR 


\N 




^ - 4 b 5 4 


/il2767 


K 6 4 


174276 


ERR64 I 


MOV 


#64,ERC0UNT 


ISET UP ERROR COUNT 64 




300065 








N»N*1 






ir- 4 5 6 2 


1004567 


303654 






JSR 


%5|STAER1 


IREPORT ERROR IN CMA 


/!4 56 6 


:^00167 


177412 






JMP 


STAI56 


lERROR RESTART TEST 



P A L X 1 1 


Vl£)03 




7(7 


010 7 


PAGE 


16 














JA READ 


CONTINUE 


WILL BE EXECUTED NOW 










IWORO COUNT WILL 


BE SET TO - 


1 AGAIN 










i 

JER0R44 


*BUSY 


N01 


SET BY GO 












IEB0R45 


'BUSY 


NOT 


CLEARED BY 


OVERFLOW 










IER0R46 


'DISK 


ERROR OCCURRED 


WHILE X-FERIN6 










IER0R47 


aDAE INCREMENTED WHEN 


CONTINUE WAS EXECUTED 










IEROR50 


=DAR DID 


NOT EQUAL 2 


AFTER SECOND X-FER 










IER0R51 


=WC FAILED TO OVERFLOW ON READ CONTINUE 










lER0R52aCMA DID 
I 


NOT EQUAL 0UTBUF*2 AFTER READ CONTINUE 


p: a /l K 7 5 


(71 1 P 7 7 7 
-'J X C 1 / f 


1 inn 

X 1 1 1 1 1 


X / ^ t X o 


1 

m k TAR f 

ST A I 09 » 


MOV 




*177TT7 ALI^ 


iSLT WC TO "I 


7 d 4 A (?) 
^ O fc^ If 


052777 


C500CIP! 1 

iL/ lU M J. 


174906 

X ^ ^ c v w 




D i J> 






lot! bO TO CuNiINUc. 


1/ (7 4 A d A 

y ir. ~ o iW y 


105777 


174P0? 






T C T D 

To 1 D 




« n r c 


1 TtaT r OR RDY'w 


fci 16 ~ O i C 


100012 

J, tc/ ic; X b 








D D 1 




C T A I A A 


1 p n V e r T 

1 RUT 5L T 


if if ~ U X "t 


017767 


1741 74 


1 74946 

X f ~ C ~ w 




n u V 






iFFTru rnwTrMT^ nF nr*5 
ircion UUIMIC.NI3 ur Uws 










t r\ U n * t • 


r R R n D 

t. n y n 




V kl 




CM74 A?? 

t ~ D t C 


/ 1 2 7 A 7 


^ ft 
JW iCJ w 


174230 

X f ^ C w tl 


P D D A IE 9 


M n u 




#aR rorTitiKiT 


latT Ur E.RROR COUNT 63 




}LJ JU \? W 








N 8 N ♦ 1 








i/, ~ U w IC/ 


/5t)4567 


003534 

r' lu w w " 






1 C R 




X3 1 oT AtR 


IRtrORT BUSY NOT SET 


P P) 4 A 7 4 
k (tJ ^ O O " 


ITJ If ^ W f 


1 77*^44 

XI ' o " 






1 M P 

J n ~ 




c T A T c; A 




r/ 01 A A z (7 
/ ■ t •* It) 


/J IfJ 3 B / 


i 7 4 O 9 ^ 




ST A I 66 S 


CL" 




WORK 




f" 4 ^ 4 4 


1 &5 5 7 7 7 


1 741 44 

X / ~ X " 




T ki r* D n • 

I NCHu . 


T C T D 




(ft n P c 
?DL3 


IT5T r OR ROY otT BY DVERrLOW 


1? W 4 A S CI 
V ici •+ O 


1 C CI 4 1 S 
X fc* 1" "t X ^ 








OUT 




OTA T A 7 

o T A 1 / 


IRuY SET CONTINUE 


(704652 


005267 


17491? 

X / ~ €, X C 






I IN w 




u n R 1/ 


■ UATT mo QllCVnOI 

JWAIT r OK dU«'*«9 


['04656 


001372 








BINE. 




I IN n U 


Jt»U WAll PUK DU9T 


K 4 6 6 


017767 


174130 


174202 




M ft W 






IrtTCH C0NltNl3 or UCa 










r R ft D Z S ! 

t n u n *» 3 • 


t n u 








o 4 6 6 6 


012767 


t' V *J %f \j \J 


174164 

X / ~ X u ^ 


tr D R A A * 
C. M n 6 • 


n U V 




1(AA rRmilMT 
"00 1 tKUUUN 1 


iCTT IIP rppnD miiMT aa 




000067 








N ■ N * 1 








I/ ^; 4 5 7 4 


004567 


303470 






1 C R 
J 3 n 




•/ R c T A r D 
/b9 1 a T A LR 


iREruRT BUSY NOT CLtARtU 


[' ■ 'Z' 4 7 


00167 


177300 










C T A T K A 
3 1 A I 90 


iDFCVADT DAII¥TklF 

IRtSTART ROUTINE 


£1 16 -t / Ii5 t 


,,1 ffl K 7 7 7 


1 7 41 31 4 
X / *♦ X *5 t 




ST A I 67 ! 


T e T 

T5 1 




i?DCS 


IDID AN ERROR OCCUR WHILE X-FEnING 


v' 5" 4 7 1 W 

V i6 ^ / J. it' 


1 C, PI M 1 B 

X 1" «' If A •» 








BrL 




OTA T 7 01 

5 r A 1 / Ifl 


■ KlA POklTtklllP 

IND CONTINUE 


. t' 4 7 1 ? 


317767 


174076 


1 7 41 50 

X / ~ X -' iw 




u n u 
MOV 




(PDCo » WUKIV 


lYtbJ CONTENTS Or QCS 


" (7> 4 7 ? 


1 7 7 A 7 


1741 0P1 


17 414 4 

X ^ X ^ ~ 




MOV 






1 PyT FRRftR B T T«; 










ER0R46 ; 


ERROR 




\N 






7 1 5 7 A 7 


M 01 01 pi A 7 
tj v *J 1J O / 


1 7 41 9 4 


ERR67 : 


MOV 




#67,ERC0UNT 


ISET UP ERROR COUNT 67 




ij %i V 1 v 








N«N + 1 








,' < ' 4 7 3 4 


a? 4 5 6 7 


l7iPl3579 

If- IW W ^ If. c 






JSR 




%5|STAER1 


IREPORT ERROR OCCURRED 


c- 4 7 4 


■■/I M C? 1 6 7 
'J lu ly X o / 


1 7534171 






JMP 




STAI22 


IRESTART ROUTINE 


^4744 


30 57 77 


174054 




STAI70: 


TST 




*DAE 


IDID DAE INC. BY DATA WAS X-FEREO 


„ /, 4 7 5 ^; 


It X "T X C 








BEQ 




STAI71 


lOK IT DID NOT INC 


1 ' 5 4 7 


i'^ 1 7 7 6 7 


1 74C146 


17 4110 
X / ~ X xtj 




MOV 




»DAE,WORK 


lERROR IT INCREMENTED 










ER0R47 > 


ERROR 




\N 




d 7 A C 


41 71 


M ffl C^ 01 7 ffl 


1 1 A!A17 


ERR70; 


MOV 




#70,ERCOUNT 


ISET UP ERROR COUNT 70 




H- IrJ / X 








N"N + l 








' ■ 4 7 A A 


4 R A 7 


« PI 7 7 7 A 






JSR 




%5#STAER 


iREPORT DAE INCREMENTED 


:• 7 4 7 7 


!■ It <J X U ^ 


1 7 7?C^6 






JMP 




STAI56 




V t'^ll b 




174020 


174064 


STAI71! 


MOV 




(SOAR, WORK 


IDID DAR INCREMENT ON CONTINUE 


, ■ !^ (2 4 


/112767 


000002 


174060 




MOV 




#2iW0RKl 


IWHAT DAR SHOULD CONTAIN 




.126767 


174054 


174050 




CMP 




WORKl.WORK 


MS DAR CORRECT 




"301407 








BEQ 




STAI72 


IDAR OK 
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-1 












ERunPM ! 


F D D f> D 


\N 




5 2 2 


2) 1 2 7 6 7 


000071 


174030 


ERR71 J 


MOV 


#71 , ERCOUNT 


ISET UP ERROR COUNT 71 




000072 








NsN-t-l 






f; 1? 5 3 


00 4 56 7 


003406 






JSR 


%5 1 STAERl 


IREPORT DAR INCORRECT 


(5 5 3 4 


000167 


177144 






jmp 


ST A I 5o 


iRESrART ROUTINE 


3 4 


1 / 7 6 / 


4 "T T ^ K O 




ST A I 72 • 


MO V 


PWC 1 WORK 


IFcTCH WORD COUNT 


5 4 6 


'^I k3 1 4 / 








D r 


b f A I 7 >5 


iLiADm ^tf^llklT mviitcspi ALipn 
IWOKO COUNT OVtRrUuWtD 










r" n ^ n K -4 * 

ERDR51 J 


r" D O f\ r\ 






00 5050 


01276 7 


0000/2 


174002 


ERR72 ! 


MOV 


#7(1 » ERCOUNT 


ISET UP ERROR COUNT 72 




/V. rt( rtl *» 

000073 








N*N*1 






0050 5 6 




003306 






JSR 


%5 » STAtR 


IREPORT WORD COUNT FAILED TQ CLEAR 


506 2 


M 1(3 It) 1 6 / 


17/116 






1 M D 


ST A I PO 


JRESTART ROUTINE 


0050 66 


017767 


173726 


173774 


STA 1 73 t 


MOV 


*CMA » WORK 


IFETCH CMA 


005074 


i312767 


011114 


173770 




fs Kl 

MOV 


#OUTBUr+4|W0RKl 


IWHAT CMA SHOULD EQUAL 


510 2 


O "T ^ •? 


173764 


173760 




CMP 


1 t n D ly LI B L/ 

W0RK1»W0RK 


1 1 5 CMA CORRECT 


5110 


'Tt f> "4 >1 (Tl 7 

l31Ol<»0 / 








DC Cl 


i D C T K it 


■ r*IUIA LI AC 0* f\GO f T 

iCMA WAS CORRECT 










L n U n " c • 


f R R n R 

t. n n u " 


N IN 




005112 


012767 


000073 


173740 


CRR735 


MOV 


#73, ERCOUNT 


ISET UP ERROR COUNT 73 




000074 








NbN + I 






005120 


004567 


003316 






JSR 


%5, STAERl 


IREPORT CMA INCORRECT 


005124 


000167 


177054 






JMP 


STAI56 


IRESTART ROUTINE 


005130 


000004 






LPST565 


SCOPE 




lENTER SCOPE LOOP 


005132 


004204 








STAI56 
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7.52171 


000400 


173652 


/C'51<2 


012777 


mill 


173646 




vU2777 


011110 


173642 




K05077 


173642 




V- V:blb2 


^12777 


iniii 


173632 


1^ >i 1 7 


^112777 


0000P'3 


173616 


f 05176 


005067 


173666 




K f 5 2 2 


105777 


17365^6 






100414 






C ^' 5 2 1 a 


^^t55267 


173654 




T' 5 2 1 4 


W kO 1 7 






5216 


■/)nibi 


173572 


173644 


'/ 3 2 2 4 


-^12767 


000074 


173626 




/i 7 5 








/504567 


003132 




3 2 3 6 


C00736 






o: 5 2 4 g 


005777 


173556 




■/, 5 2 4 4 


Wtil412 






^"05246 


;il7767 


173550 


173614 


;-i?5254 


2 7 6 7 


000075 


173576 




i.00076 






,^.^5262 


:^k;4567 


003l!?.2 




^^^5266 


000167 


177642 




r:05272 


'<dlllbl 


173526 


173570 


/05300 


•^42767 


Xllll^ 


173562 


/ !:>53(^6 


^22767 


000001 


173554 


? £' 5 3 1 4 


''5 1 4 1 






i:fc5316 


^512767 


000001 


173546 


v'05324 


.312767 


000076 


173526 




T^m^ii 






1/0533 2 


004567 


003104 




{'.05336 


000004 






P 0534!? 


305134 
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I 

J IN THIS STATIC TEST THE ABILITY OF THE DISK CONTROL 

ITO INCREMENT THE TRACK REGIST WILL BE TESTED. 

J 

lA ONE WORD WRITE WILL BE EXECUTED 

IDAE=0 

|DAR=177777 

IWC«-1 

ICMA=0UTBUF 

I 

lAT THE COMPLETION OF THE WRITE 

I DAR»0 

JDAE=1 



STAI74; 


BIS 


#BIT8»»DCS 


ICLEAR THE DISK 




MOV 


#177777, JtWC 


ISET WORD COUNT TO -1 




MOV 


#OUTBUF,»CMA 


ISET UP CURRENT ADDRESS 




CLR 


(JDAE 


ICLEAR EXT. ADDR BITS 




MOV 


#177777, 9»DAR 


ISET DAR TO ALL ONES 




MOV 


#3i*DCS 


JGO WRITE ONE WORD 




CLR 


WORK 


ILET'S WAIT FOR COMPLETION 


LTSWT : 


TSTB 


»OCS 


ITEST FOR NOT BUSY 




BMI 


STAI75 


IX-FER COMPLETE 




INC 


WORK 


1*1 WAIT REG. 




BNE 


LTSWT 


IGO WAIT FOR NOT BUSY 




MOV 


SDCSfWORK 


IFETCH CONTENTS OF DCS 




ERROR 


\N 




ERR74 : 


MOV 


#74,ERC0UNT 


ISET UP ERROR COUNT 74 




NeN + 1 








JSR 


%5,STAER 


IREPORT ERROR X-FER NEVER COMPLETED 




BR 


STAI74 


IRESTART ROUTINE 


STAI75: 


TST 


e»DAR 


IDOES DAR=0 




BEQ 


STAI76 


lOAR OK 




MOV 


*DAR,WORK 


IFETCH DAR 




ERROR 


\N 




ERR75! 


MOV 


#75,ERC0UNT 


ISET UP ERROR COUNT 75 




N*N*1 








JSR 


XSiSTAER 


IREPORT DAR DID NOT INC TO 




JMP 


STAI74 


lERROR RE-START ROUTINE 


STAI76 J 


MOV 


»DAE,WORK 


IFETCH DAE 




3IC 


#177774, WORK 


ICLEAR DISK AND ERROR BITS 




CMP 


#1,W0RK 


IDID DAE INC 




BEQ 


LPST74 


IDAE SHOULD EQUAL 1 




MOV 


#1»W0RK1 


IWHAT DAE SHOULD CONTAIN 




ERROR 


\N 




ERR76! 


MOV 


#76,ERC0UNT 


ISET UP ERROR COUNT 76 




N*N + 1 








JSR 


%5,STAER1 


IREPORT DAE NOT CORRECT 


LPST74 : 


SCOPE 




lENTER SCOPE LOOP 




STAI74 
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UN THIS ROUTINE THE ABILITY OF THE CONTROL 

)T0 INCREMENT THE DISK NO,, IS CHECKED 

I 

IROUTINE PARAMETERS AT START 
IDAE=0000X3 (X"EXISTING DISK NO) 

)DARb177777 
IWCb-1 

)CMA=#OUTBUF 

JDCS=#3 

) 

IPARAMETERS AT THE END OF ROUTINE 

IDAE=X+1 

IDAR=0 

jWCa0 

)CMA=0UTBUF+2 
lDCSa0 

I 
) 







173466 


173522 


STA 1 77 5 


MOV 


FLAG, WORKl 


IFETCH PROGRAM FLAG 


, ^, "3 3 ^ 


;^42767 


177743 


173514 




8IC 


#177743, WORKl 


IMASK DISK NO, 


■ t' 53 5 6 


7!b2161 


0000(?'3 


173506 




BIS 


«3iW0RKl 


ISET ADDR EXT. BITS 


ri 536 4 


1 6 7 7 7 


1735172 


173432 




MOV 


WORKl » »DAE 


ISET DAE REG 


■■f'5 372 


5512777 


in 111 


173422 




MOV 


#177777, (PDAR 


IDAR EQUALS ALL ONES 


■ ^! 5 4 1?1 7) 


012 7 7 7 


\iiiii 


173410 




MOV 


#177777, »WC 


IWORD COUNT SET FOR ONE WORD 


' -. •/ 5£,Vb 


i'. 121 11 


011110 


173404 




MOV 


#OUTBUF , JiCMA 


ICURRENT ADDRESS SET UP 


■.105 414 


/;52777 


000003 


173372 




BIS 


#3i«9DCS 


IGO WRITE 


;/ 1- ■ 5 4 2? 


105777 


173366 






TSTB 


capes 


IIS ROY CLEARED 


J- 5 4 2 6 


lf'0011 








BPL 


STA100 




\ ^5AZ^ 


/■17767 


173360 


173432 




MOV 


JSDCS.WORK 


IFETCH CONTROL RUG 












ERROR 


\N 




;'K5436 


in2767 


Vj^^7,11 


173414 


ERR77 : 


MOV 


#77,ERC0UNT 


ISET UP ERROR COUNT 77 




000100 








N«N + 1 






r'?'5444 


004567 


002720 






sjSR 


%5iSTAER 


IREPORT BUSY NOT SET 


5 4 5 


^500734 








BR 


STAI77 


IRESTART ROUTINE 


i'Z5452 


005067 


173412 




STA100J 


CLR 


WORK 




[',^5 4 5 6 


105777 


173332 




INXDSK5 


TST8 


©DCS 


J IS X-FER COMPLETE 


^'fc5462 


100415 








BMI 


STA101 




3 5 4 6 4 


5105267 


173400 






INC 


WORK 


J TEST READY SHOULD BE SET 


:^{^j5470 


M01372 








BNE 


INXDSK 


IGO CHECK AGAIN 


005472 


^'17767 


173316 


173370 




MOV 


^DCS, WORK 


IFETCH CONTENTS OF DCS 












ERROR 


\N 






A12161 


0001(?0 


173352 


ERRli^a: 


MOV 


#100,ERCOUNT 


ISET UP ERROR COUNT 100 




000101 








NsN + 1 






r 055^:6 


004567 


002656 






JSR 


?i5iSTAER 


IREPORT X-FER NOT COMPLETE 


C'05512 


000167 


177624 






JMP 


STAI77 


IRESTART ROUTINE 


f:055l6 


m5iii 


173300 




STA1011 


TST 


^iDAR 


IIS DAR CLEARED 


l':ii5522 


001412 








BEQ 


STA102 


1 YES 


05524 


017767 


173272 


173336 




MOV 


90AR,W0RK 


IFETCH DAR ITS NOT CLEAR 












ERROR 


\N 




J;^05532 


^12767 


000101 


173320 


ERR101I 


MOV 


#101,ERCOUNT 


ISET UP ERROR COUNT 101 




000102 








N»N + 1 






00554ii;i 


004567 


002624 






JSR 


%5iSTAER 


IREPORT DAR NOT CLEAR. 


W05544 


000167 


177572 






JMP 


STAI77 


IRESTART ROUTINE 
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-1 




1^05267 


173316 




STA102! 


INC 


WORKl 


'705554 


026777 


173312 


173242 




CMP 


W0RK1,»DAE 


''05562 


001412 








BEQ 


LPST77 


005564 




173234 


173276 




MOV 


9DAE.W0RK 












ERROR 


\N 


!^ 125572 


012767 


000102 


173260 


ERR102 ! 


MOV 


#102,ERCOUNT 




000103 








NbN*1 




?05600 


004567 


002636 






JSR 


%5|STAER1 


;:05604 


000167 


177532 






JMP 


STAI77 


005610 








LPST77: 


SCOPE 




?056i2 


005342 








STAI77 





IDAE SH0UL0«THIS AT END X-FER 
lis DAE CORRECT 
IDAE IS CORRECT 
IFETCH CONTENTS OF DAE 

ISET UP ERROR COUNT 102 

IREPORT DAE INCORRECT 
IRESTART ROUTINE 
lENTER SCOPE LOOP 
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I 

JIN THIS ROUTINE THE PROGRAM WILL GENERATE A 
JNON-EXISTENT DISK ERROR THIS WILL EJE DONE 
JBY ATTEMPING A 2 WORD WRITE ON DISK 7 
ITHE LAST TRACK AND THE LAST WORD ON THE 
ILAST TRACK 
I 

IIF DISK 7 IS THERE WE WILL RECEIVE 

JA NON-EXISTENT DISK ERROR WITH OVERFLOW 

ISET 

I 

MF DISK 7 IS NOT THERE WE WILL 

JJUST RECEIVE A NON-EXISTENT DISK ERROR 

I 



I 
I 
I 



/!05614 


052777 


000400 


173172 


STA103J 


BIS 


#BIT8»9DCS 


ICLEAR THE DISK 


005622 


012777 


000037 


173174 




MOV 


#37,e9DAE 


ISET ALL EXT ADDR. BITS 


^'05630 


012777 


177777 


173164 




MOV 


#177777, »DAR 


ISET DAR«TO ALL ONES 




012777 


177776 


173152 




MOV 


#177776, (J»WC 


IWORD COUNTb-2 


0056-44 


012777 


011110 


173146 




MOV 


#OUTBUF,*CMA 


ICURRENT AODRESSpOUTBUF 


005652 


052777 


000003 


173134 




BIS 


#3>»DCS 


IGO WRITE 


005660 


005067 


173204 






CLR 


WORK 




005664 


105777 


173124 




WAFBUSJ 


TST8 


»DCS 


IIS rdy set 


r'05670 


100414 








BMI 


STA104 


1 YES EXIT 


1^05672 


005267 


173172 






INC 


WORK 


JNO' BUSY STILL SET 


iZ05676 


001372 








BNE 


WAFBUS 


iGO WAIT FOR BUSY«»0 


f 05700 


017767 


173110 


173162 




MOV 


("DCS, WORK 


IFETCH CONTENTS OF DCS 












ERROR 


\N 




/'^057£.6 


012767 


0001?3 


173144 


ERR103J 


MOV 


#103,ERCOUNT 


I^ET UP ERROR COUNT 103 




000104 








N*N + 1 






.7- 5 7 1 4 


004567 


002450 






JSR 


X5,STAER 


IREPORT BUSY SET 


C-05720 


000735 








BR 


STAi03 


IRESTART ROUTINE 


^'05722 


032777 


004000 


173064 


STA104 I 


BIT 


#BIT11.»DCS 


IIS NCD SET 


7.05730 


001011 








BNE 


STA105 


lYES! IS ERROR SET 


/05732 


017767 


173056 


173130 




MOV 


SDCS, WORK 


IFETCH DCS 












ERROR 


\N 




?05740 


012767 


000104 


173112 


ERR104: 


MOV 


#104,ERCOUNT 


ISET UP ERROR COUNT 104 




000105 








N«N + 1 






•705746 


004567 


002416 






JSR 


XSiSTAER 


IREPORT NEED NOT SET 


J'05752 


000720 








BR 


STA103 


IRESTART ROUTINE 


^•^.5754 


005777 


173034 




STA105 t 


TST 




lis ERROR Flag set 


7 5 76 


100411 








BMI 


LPSX103 


lERROR IS SET 


;.;05762 


017767 


173026 


173100 




MOV 


•DCS, WORK 


IFETCH CONTENTS OF DCS 












ERROR 


\N 




k:05770 


012767 


000105 


173062 


ERR105I 


MOV 


#105,ERCOUNT 


ISET UP ERROR COUNT 105 




B00106 








N»N + 1 






^^05776 


004567 


002366 






JSR 


XS.STAER 


IREPORT ERROR NOT SET 


;/. 6 1;'. 2 


000704 








BR 


STA103 


IRESTART ROUTINE 


? 6 4 


000004 






LPSX103JSCOPE 




lENTER SCOPE LOOP 


06006 


005614 








STA103 
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1 

I I N THIS 


TEST THE FEATURE OF 


CURRENT 










1 ADDRESS 


INHIBIT IS TESTED 












IDO A ONE WORD 


WRITE AND SEE 












; I F CMA 
1 


INCREMENTED AFTER THE 


X-FER 


/) e 6 J* 1 


352777 


000400 


172776 


i 

ST105X : 


BIS 


#BIT8i»DCS 


ICLEAR THE DISK 


? 2 6 K 1 6 


i)12777 


011110 


172774 




MOV 


#OUTBUF,»CMA 


ISET UP CURRENT ADDR 




012777 


177777 


172764 




MOV 


#-l.PWC 


ISET WORD COUNT TO -I 






000 400 


172764 




BIS 


#BIT8,»DAE 


ISET CURRENT ADOR, INHIBIT 


2 6 4 £ 


105777 


172750 






TSTB 


*DCS 


JTEST FOR READY 


• 6 7: 4 4 


1004Z6 








BMI 


LPX105 


IBRANCH IF READY SET 












ERROR 


\N 




/ Z 6 2 4 6 


■A121tl 


?i001J'6 


173004 


ERR106 : 


MOV 


#106,ERCOUNT 


ISET UP ERROR COUNT 106 




3001C7 








NsN*l 






. i:62;54 


7/24567 


5^02310 






JSR 


%5i STAER 


IREPORT READY NOT SET 


'• 6 f/ 6 2 


/) 120753 








BR 


STiesx 


ITRY AGAIN 




5^12777 


0000?3 


172724 


LPX105: 


MOV 


#3i»DCS 


IGO WRITE 






172720 






TSTB 


«DCS 


ITEST FOR NOT ROY 


.'06274 


lf;0006 








BPL 


LPX106 


IBRANCH IF RDY»0 












ERROR 


SN 




:•' / ft ? 7 6 


;^12767 


Z001'-''7 


172754 


ERP107 J 


MOV 


#107 , ERCOUNT 


jSET up error COUNT 107 




;;00110 








NeN + l 






. L' 6 1 ;: 4 


^04567 


■? 2 2 6 






jSR 


X5 1 STAER 


IREPORT RDY NOT CLEARED BY CMD. 


/ <i 6 1 1 / 


■;i00737 








BR 


ST105X 


ILOOP ON ERROR 


," 2: 6 1 1 2 


<^C;5067 


172752 




|_PX17!6 : 


CLR 


WORK 




■ ?c 6116 


105777 


172672 




W A T P D Y J 


TSTB 


(JDCS 




. Z 6 1 k 2 


100411 








BM I 


LPX107 


IBRANCH IF ROY SET 


■■ ctl?^ 


205267 


172740 






INC 


WORK 


IWAIT FOR RDY 


: 7.h\Z7. 


^01372 








BNE 


WATRDY 














ERROR 


\N 




■ 0615c: 


2)12767 


/00110 


172720 


ERW110 J 


MOV 


#110 .ERCOUNT 


ISET UP ERROR COUNT 110 




>100111 








N s N ■♦■ 1 






/ ;^6i4z 


;!04567 


002224 






JSR 


X5, STAER 


IREAOY NEVER SET AFTER X-FER 


V 6 1 4 4 


:^00721 








BR 


ST105X 


ILOOP ON ERROR 


• /, 6 1 4 6 


/^12767 


^: 1 1 1 1 


17 2716 


\_?ti7.1'. 


MOV 


#0UTBUF,W0RK1 


IWHAT CMA SHOULD BE 




m7767 


172640 


172706 




MOV 


9CMA , WORK 


IWHAT CMA IS 




:i26767 


1727^2 


1727?'2 




CMP 


WORK. WORKl 


ICOMPARE 


Z 6 1 7 £ 


2)014P6 








BEfl 


LPX108 


IBRANCH IF EQUAL 












ERROR 


\N 




.'' 617 5 


.n 2 7 6 7 


? 1 1 1. 


172660 


ERRlli: 


MOV 


#111, ERCOUNT 


iSET UP ERROR COUNT 111 




'^00112 








N = N*1 






" '53 6 2 ."^ 


004567 


Z02236 






JSR 


%5,STAER1 


IREPORT THEY DID NOT CMP 


; ."3 6 2/ 4 


000701 








BR 


ST105X 


ILOOP ON ERROR 


e 6 2 7 6 


000004 






LPX128! 


SCOPE 




lENTER SCOPE LOOP 


"•Z62ie 


006010 








ST105X 
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052777 


000400 


172574 




012777 


000340 


172554 


r:06226 


012777 


177776 


172562 


126234 


012777 


171176 


172556 


£: 6 2 4 2 


052777 


000063 


172544 




005067 


172614 




.'. I.' O y ** 


r/l (7i 7 7 7 


4 7 9 c "I ^ 
1 / i£ D 4 




'/. 6 2 6 K 


100430 






■-'06262 


105777 


172526 




■:; 6 2 6 6 


100414 






;'£627£ 


005267 


172574 




:-(?6274 


001367 






2)62 7 6 


k)12767 


000H2 


172554 




000113 








017767 


172504 


172556 


6 312 


004567 


002052 




;'06316 


000735 






^■06320 


;i)12767 


000113 


172532 




vCJ If fej X 1 T 






■:/.06326 


017767 


172462 


172534 


r^06334 


004567 


002033 




i.')06340 


000724 






f-06342 


032777 


04001?0 


172444 


^"063'^^) 


001011 






t^063^.2 


012767 


000114 


172500 




W fci 16 1 1 3 






f'- 6 3 6 


017767 


172430 


172502 


i?26366 


004567 


001776 




^■0637? 


000707 






B063 74 


032777 


002000 


172422 


6 4 2 


001011 






6 4 e 4 


012767 


000115 


172446 




000116 






'. . 16 O H X c 


C11 11 (\1 


1 7 ? <4 ^ 


■1 7?4^C! 


1^636420 


004567 


001744 




;''06424 


000672 






ii'.06426 


052777 


000400 


172360 


006434 


022777 


000200 


172352 


006442 


001412 






006444 


012767 


000116 


172406 




000117 
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MN THIS ROUTINE THE ABILITY OF NON-EXISTENT 

IMEMORY ERROR IS CHECK. 

I 

ITRANSFER TWO WORDS STARTING WITH THE 
ILARGEST ADDRESSABLE MEMORY LOCATION IN THE 
lPDP-11/20 



I 



NXMTSM « 


BIS 


#BIT8,iPDCS 


ICLEAR THE DISK 




MOV 


#340,9»CSR 


ILOCK UP PROCESSOR 




MOV 


#"2,»WC 


ISET UP WORD COUNT 




MOV 


#177776, IJCMA 


ISET UP CURRENT ADDRESS 




BIS 


#63,9DCS 


IISSUE WRITE 




CLR 


WORK 




INCNEMJ 


TST 


*OCS 


ITEST FOR ERROR 




BMI 


TSTNEM 


IBRANCH IF ERROR SET 




TSTB 


«6DCS 


ITEST FOR ERROR 




BMI 


RDYERX 


IREPORT NEM NOT SET 




INC 


WORK 


IWAIT FOR ERROR 




BNE 


INCNEM 






ERROR 


\N 


IREPORT ERROR OR BUSY NOT SET 


ERR112: 


MOV 


#112,ERC0UNT 


ISET UP ERROR COUNT 112 




N«N + 1 








MOV 


^DCS.WORK 


IFETCH DCS FOR REPORT 




JSR 


%5iSTAER 


IREPORT ERROR 




BR 


NXMTSM 


ILOOP ON ERROR 


RDYERX : 


ERROR 


\N 




ERR113I 


MOV 


#113,ERC0UNT 


ISET UP ERROR COUNT 113 




NbN + I 








MOV 


PDCS.WORK 


IREPORT TIME OUT 




JSR 


%5iSTAER 


ICONTROL NEVER COMPLETED WRITE 




BR 


NXMTSM 


ILOOP ON ERROR 


TSTNEM J 


BIT 


#BITl4,(iiDCS 






BNE 


HWDOK 


IBRANCH IF HARD ERROR SET 




ERROR 


\N 




ERR114I 


MOV 


#114,ERC0UNT 


ISET UP ERROR COUNT 114 




N«=N + l 








MOV 


SDCSfWORK 


IREPORT HWD NOT SET BY NEM 




JSR 


?«5,STAER 


IREPORT HWD NOT SET 




BR 


NXMTSM 


ILOOP ON ERROR 


HWDOK: 


BIT 


#BIT10,e»DAE 


ITEST FOR NEM SET 




BNE 


CLRNEM 


INEM SET BE X-FER OK 




ERROR 


\N 




ERRllS: 


MOV 


#115,ERC0UNT 


ISET UP ERROR COUNT 115 




NbN + 1 








MOV 


9DAE.W0RK 


IREPORT HARD ERROR REGISTER 




JSR 


%5,STAER 


IREPORT NEM NOT SET BY X-fER 




BR 


NXMTSM 


ILOOP ON ERROR 


CLRNEM! 


BIS 


#BIT8.»DCS 


ICLEAR THE DISK 




CMP 


#200.«»DCS 


IIS ERROR CLEARED 




BEQ 


CKHWD 


lERROR FLAG CLEARED 




ERROR 


\N 




ERR116» 


MOV 


#116,ERC0UNT 


ISET UP ERROR COUNT 116 




N«N + 1 







PALXll 


V003 
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-1 


2 6 4 5; 2 


10 1 / / 6 7 


1 7 £ oo 6 


172410 




u n V/ 


A ^ ^ c LI n i> 


6 4 6 


004567 


0017?4 






JSR 


X5 1 STAER 


206464 


000167 


177522 






JMP 


NXMTSM 


? 6 4 7 Z 


032777 


040000 


172316 


CKHWO ! 


BIT 


#B I T14 » (IOCS 


006476 


001412 








BEO 


CKNEM 












ERROR 


\N 


6 5 i?: 


012767 


000117 


172352 


ERR117 J 


MOV 


*'117 , ERCOUNT 




000120 








N«N*1 




C 6 5 '? 6 


017767 


172302 


172354 




MOV 


iocs . WORK 


K'06514 


004567 


001650 






JSR 


X5 » ST AER 


5^06522 


000167 


177466 






JMP 


NXMTSM 


06 5 2 4 


032777 


002000 


172272 


CKNEH S 


B I T 


*KB 1 T10 1 PDAE 


2106532 


301410 








8EQ 


L.PNEM 












r" n D n o 


\N 


?j 6 5 3 4 


012767 


000120 


172316 


ERR120 t 


u n w 

MOV 


»lZ0iERCOUNT 




000121 








N»N*1 




30654 2 


017767 


172256 


172320 




MOV 


*0 AE » WORK 


?!' 6 5 f) 2 


000167 


177436 






JMP 


Ik.: v LI T C ki 


006554 


000004 








SCOPE 




006556 


006212 








NXMTSM 





lERROR NOT CLEARED BY DISK CLEAR 

IREPORT ERROR 

ILOOP ON ERROR 

1 IS HARD ERROR SET 

IHWD CLEARED BY DISK CLEAR 

ISET UP ERROR COUNT 117 

IREPORT HWD NOT CLEARED 
I 

ILOOP ON ERROR 

IIS NEM CLEARED BY DISK CLEAR 
INEM CLEARED BY DISK CLEAR 

ISET UP ERROR COUNT 120 

IREPORT NEM NOT CLEARED BY DISK CLEAR 
ILOOP ON ERROR 
lENTER SCOPE LOOP 
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1 

>IN THIS ROUTINE THE PROGRAM 


WILL TEST 










)THAT THE DISK WILL ONLY TRAP 












JAT BR5 ONLY 


WHEN A INTERRUPT 


IS GENERATED 










>BY CLEARING 


THE DONE 












JPROCESSOR OPERATING AT PRIORITY? 


006560 


012767 


006664 


171416 


1 

5TA10O « nu V 


»INT10O»Z|34 


ISET UP INTERRUPT VECTOR 


006566 


012777 


000340 


172206 


MOV 


#340,9CSR 


ILOCK OUT ALL INTERRUPTS 


006574 


005077 


172224 




CLR 


9DAE 


ICLEAR ADDRESS REGISTERS 


006600 


005077 


172216 




CLR 


90AR 




006604 


012777 


177777 


172204 


MOV 


#177777, fliWC 


JSET WORD COUNT TO -1 


006612 


012777 


011110 


172200 


MOV 


#OUTBUF,§CMA 


ILOAD CURRENT ADDRESS 


006620 


052777 


000103 


172166 


BIS 


#103,«»DCS 


Jt»0 WKITt wNlLRnUPT LNASLED) 


006626 


005000 






CLR 


%0 


1 W A I T FOR RDY 


006630 


005200 






INC 


%0 




006632 


001376 






BNE 


,-2 




006634 


105777 


172154 




TSTB 


9DCS 


IIS CUNIKOL olILL NOT nOY 


K06f 40 

K/ "^^ ■* jf 


100423 






BMI 


LP106 


1 Kin 


006642 


017767 


172146 


172220 


MOV 


*DCS, WORK 


1 vre f 
1 T c. a J 










ERROR 


\N 




It" ky W D ^ 


012767 


IC/ l& X £ X 


X / <- £ >u C 


ERR121: MOV 


#121,ERC0UNT 


ISET UP ERROR COUNT 121 




000122 






N»N*1 






006656 


004567 


001506 




JSR 


%5iSTAER 


IREPORT CONTROL STILL BUSY 


006662 


000736 






BR 


STA106 


IRESTART ROUTINE 










JPROCESSOR SHOULD NOT TRAP TO 


INT106 










IPROCESSOR PRIORITY IS LOCKED 


AT 7 










> 

INT106: ERROR 


\N 




006664 


012767 


000122 


172166 


ERR1221 MOV 


#122,ERC0UNT 


ISET UP ERROR COUNT 122 




000123 






NsN+1 






006672 


017767 


172104 


172170 


MOV 


«»CSR,WORK 


IFETCH PROCESSOR PRIORITY 


0067^''0 


022626 






CMP 


{6)+, (6)* 




006 7 (•2 


004567 


001462 




JSR 


%5»STAER 


IREPORT DISK INTERRUPTED 




000724 






BR 


STA106 




f 6 7 J. 


000004 






LP106: SCOPE 




lENTER SCOPE LOOP 



006712 006560 STA106 
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J 

UN THIS ROUTINE THE PROGRAM 


WILL TEST 










ITHAT THE DISK 


WILL ONLY TRAP 












lAT BR5 ONLY WHEN A INTERRUPT 


IS GENERATED 










{BY CLEARING THE DONE 












{PROCESSOR OPERATING AT PRI0RITY6 


it! 6 7 1 4 


012767 


007020 


171262 


STA110J MOV 


#INT110.204 


{SET UP INTERRUPT VECTOR 


?it6f>7'c2 




(T! rti /9i T (Ti m 

K00300 


4 T O W C O 

1 7 «: 5 £ 


MOV 


«|I300«»CSR 


{LOCK OUT ALL INTERRUPTS ABOVE 


06 7 30 


00 P0 7 7 


4 T Tl m ■* rti 

17<:Z70 




CLR 


i?DAE 


{CLEAR ADDRESS REGISTERS 


K0671S4 


005077 


172062 




clR 


ODAR 




K f) 6 7 4 Z 


012777 


177777 


172050 


MOV 


#177777, owe 


{SET WORD COUNT TO -1 


e^6746 


012777 


011110 


172044 


MOV 


#OUTBUF,*CMA 


{LOAD CURRENT ADDRESS 


C 6 7 1 4 


052777 


0001i?3 


172032 


B I S 


#103 , ^DCS 


{GO WRITE (INTERRUPT ENABLED) 


12 6 7 6 2 


005000 






CLR 


%0 


{WAIT FOR NOT BUSY 


k^iJ6764 


005200 






INC 


%0 




K 6 7 6 6 


001376 






BNE 


.-2 






10577 7 


172020 




TSTB 


fDCS 


{ IS CONTROL STILL BUSY 


?'i!i67 7 4 


100423 






BMI 


LP110 


INO 


?:V:.b77 1 


017 7 6 7 


172012 


172064 


MOV 


?»DCS»WORK 


{ YES} 










ERROR 


\N 




e 7 i" 4 


012767 


ft. ft fk A T 

000123 


172046 


ERR123! MOV 


#123,ERC0UNT 


{SET UP ERROR COUNT 123 




000124 






Na>N + l 






^07212 


004567 


001352 




JSR 


X5,STAER 


{REPORT CONTROL STILL BUSY 


!^ 7 v'^ 1 6 


000736 






BR 


STA110 


{RESTART ROUTINE 










{PROCESSOR SHOULD NOT TRAP TO 


INT106 










{PROCESSOR PRIORITY IS LOCKED 


AT 6 










1 

INT1101 ERROR 


\N 




t'' 7 7, ^ 


012767 


000124 


172032 


ERR124J MOV 


#124,ERC0UNT 


(SET UP ERROR COUNT 124 




000125 






N = N + 1 






/! la 7 p ;> 6 


017767 


171750 


17 2 34 


MOV 


58CSR,WORK 


(FETCH PROCESSOR PRIORITY 


m7^,'ify 


022626 






CMP 


(6)+, (6)* 




e.07^36 


0124567 


001326 




JSR 


%5iSTAER 


(REPORT DISK INTERRUPTED 


07 , ' <i 2 


000724 






BR 


STA110 




^07244 


000004 






{ 

LP110J SCOPE 




(ENTER SCOPE LOOP 


f 7 f'' 4 6 


006714 






STA110 














UN THIS ROUTINE THE PROGRAM 


WILL TEST 










{THAT THE DISK 


WILL ONLY TRAP 












JAT BR5 ONLY WHEN A INTERRUPT 


IS GENERATED 










IBY CLEARING THE DONE 












{PROCESSOR OPERATING AT PRIORITY? 


7 P 5:; 


012767 


007154 


171126 


STA112: MOV 


#INT112,204 


(SET UP INTERRUPT VECTOR 


7 Z S> 6 


012777 


000240 


171716 


MOV 


#240,*CSR 


(LOCK OUT ALL INTERRUPTS ABOVE 


7 7 6 4 


00507 7 


171734 




CLR 


8>0AE 


(CLEAR ADDRESS REGISTERS 


W07Z70 


005077 


171726 




CLR 


SOAR 




007274 


01277 7 


177777 


171714 


MOV 


#177777, fibWC 


(SET WORD COUNT TO -1 


071 2 


1 d / 7 7 


011110 


171710 


MOV 


#0UTBUF,9CMA 


(LOAD CURRENT ADDRESS 


007110 


052777 


000133 


171676 


BIS 


#103,9DCS 


(GO WRITE (INTERRUPT ENABLED) 


007116 


005000 






CLR 


%0 


(WAIT FOR NOT BUSY 



PALXll 
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-1 


007120 


005200 








INC 


%Z 


007122 


001376 








BNE 


,-2 


007124 


105777 


171664 






TSTB 


S>DCS 


00713H 


100423 








BMI 


LP112 


007132 


017767 


171656 


171730 




MOV 


iS'DCS.WORK 












ERROR 


\N 


K07l4t; 


012767 


000125 


171712 


ERRi25: 


MOV 


#125.ERC0UNT 




000126 








NsN + 1 




P'07146 


004567 


001216 






JSR 


J^SiSTAER 


7 1 5 2 


000736 








BR 


STA112 



I IS CONTROL STILL BUSY 

INO 

lYES! 

JSET UP ERROR COUNT 125 

IREPORT CONTROL STILL BUSY 
IRESTART ROUTINE 



PALXll 


V003 


29-OCT- 
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JPROCESSOR SHOULD NOT TRAP TO 


INT106 










IPROCESSOR PRIORITY IS LOCKED 


AT 7 










INT112! 


ERROR 


\N 




007154 


012767 


000126 


171676 


tRRl26 J 


MOV 


#126, ERCOUNT 


(SET UP ERROR COUNT 126 




000127 








N = N + 1 






007162 


017767 


171614 


171700 




MOV 


(fCSR, WORK 


IFETCH PROCESSOR PRIORITY 


007170 


022626 








CMP 


<6>+, (6)* 




007172 


004567 


001172 






JSR 


%5|STAER 


IREPORT DISK INTERRUPTED 


007176 


000724 








BR 


STA112 




007200 


000004 






J 

LPH28 


SCOPE 




lENTER SCOPE LOOP 


0072t;"2 


007050 






; 


STA112 














1 

JTHIS ROUTINE WILL TEST THE ABILITY OF THE DISK CONTROL 










ITO TRAP AT BR5 


WHEN THE DONE 


FLAG IS SET. 


00 72 4 


052777 


000400 


171602 


STA1141 


BIS 


#BIT8f 9DCS 


ICLEAR THE DISK 


007212 


012767 


007310 


170764 




MOV 


#INTH4,204 


JSET UP DISK TRAP VECTOR 


007220 


012777 


000200 


171554 




MOV 


#200,»CSR 


ISET PROCESSOR TO PRIORITY 4 


00 7 2 2 6 


005077 


171572 






CLR 


SDAE 


ICLEAR EXT ADDRESS BITS 


007232 


005077 


171564 






CLR 


»DAR 


ICLEAR LOW ORDER ADDRESS BITS 


007236 


012777 


177777 


171552 




MOV 


#177777, SiWC 


ISET WORD COUNT TO -1 


007244 


012777 


011110 


171546 




MOV 


#OUTBUF,(S»CMA 


ILOAD CURRENT ADDRESS 


007252 


052777 


000103 


171534 




BIS 


#103,9DCS 


IWRITE (INTERRUPT ENABLE 


007260 


005000 








CLR 


%0 




72 6 2 


005200 








INC 


%0 


IWAIT FOR INTERRUPT TO OCCUR 


00 7 2 6 4 


001376 








BNE 


.-2 














ERROR 


\N 




07 26 6 


012767 


000127 


171564 


ERR127: 


MOV 


#127,ERC0UNT 


ISET UP ERROR COUNT 127 




000130 








NsN + 1 






007274 


017767 


171514 


171566 




MOV 


9DCS, WORK 


IFETCH CONTENTS OF DCS 


'/5 7 3 2 


004567 


001062 






JSR 


X5,STAER 


IREPORT INTERRUPT NO INTERRUPT 


7 3 ^3 6 


000736 






J 


BR 


STA114 


IRESTART ROUTINE 


17 H 7 3 1 


022626 






1 
1 

INT114 J 


CMP 


(6)+, (6)* 


ITRAP OK 


? 7 3 1 2 


000004 








SCOPE 




lENTER SCOPE LOOP 


n 7 3 1 4 


007204 








STA114 














; » « « 


ADDRESS 


TEST 1 » » » 












;execute a one 


WORD WRITE 












J IF THE 


TIMING 


ON THE DISK IS 


CORRECT 










JTHE TERMINATING ADDRESS IN THE DAR REGISTER 










IWILL EQUAL THE 


ADDRESS *1 OF 


THE WORD 










JTHAT WAS WRITTEN 












;note: 


DATA IS 


NOT CHECKED IN 


THIS TEST, 


f-l0 73l6 


012706 


00l0fci0 




J 

ADTl 1 


MOV 


#1000»X6 


ISET UP STACK 


0073^2 


012767 


000 001 


171510 




MOV 


#liWRDCT 


ISET UP WORD COUNT 



P AU X 1 1 


y 003 


29-OCT- 


70 


0:07 


PAGE 24 


-1 




C5 7 3 3 


012767 


011110 


171512 




MOV 


#OUTBUF , BUF 


iSET UP CURRENT ADDRESS 


007^36 

1U %J ' \) \J \J 


005Z67 


171502 






clr 


DMA 




007342 


005067 


171474 






clr 


TRACK 




550734 6 


052777 


000400 


171440 


W R A C) T : 


B I S 


#R I Tfl . s»ncs 


ICLEAR The DISK 


{107 354 


104403 








WRITE 






5507356 


105777 


171432 






TSTB 


90CS 


ICHECK FOR READY 


007362 


10(3375 








BPL 


. -4 




007364 


005777 


171424 






TST 


e>DCS 


iCHECK FDR FRROR 


007370 


100011 








BPL 


CHKADT 


IBRANCH if NJ3 ERROR 


007 3 7 2 


017767 


171416 


171470 




MOV 


ssncs . mopk 














ERROR 


\ M 
\ IN 




M 7 4 tt C; 


012767 


0001 30 

K/ (V J. w 


1 71452 

J- f ^ "T fc 


F R R 1 3 0: 


MOV 


*i30.rRrniJNT 


iSTT UP TRRflR mUNT 130 




000131 

M El' J, V X 








N = N + l 






007 4 6 


004567 


000756 






JSR 


%5 ■ ST AER 




00741 2 


000755 








BR 


WR ADT 


t 1 nnp OM TRRnR 


PI CI 7 4 1 4 


016767 


1 71494 


1 71 450 


u n i> ^\ u 1 • 


MOV 


DMA . UDRt^l 




07 4 2 2 


005267 


171444 






INC 


worki 




007426 


017767 


171370 


171434 




MOV 


9DAR > WORK 




007434 


026767 


171432 


171426 




CMP 


WORKI , Work 


J I S DAR CORRECT 


007442 


001406 








BEQ 


INCOAR 


lYES DAR IS CORRECT 












ERROR 


\N 




007444 


012767 


000131 


171406 


ERR131 ' 


MOV 


#131 , ERCOUNT 


ISET UP ERROR COUNT 131 




000132 








N = N + 1 






007452 


004567 


000764 






JSR 


%5»STAER1 


JREPORT DAR NOT CORRECT 


007456 


000733 








BR 


WRADT 


ILOOP ON ERROR 


007460 


022767 


004000 


171404 


INCDAR: 


CMP 


#4000»WORK1 


IIS IT THE LAST ADDR. 


0fe;7466 


001405 








BEQ 


LPADT 


JLAST ADDRESS EXIT 


0074 70 


016767 


171376 


171346 




MOV 


WORKI. DMA 


ISET UP FOR NEXT ADOR. 


007476 


000167 


177644 






JMP 


WRADT 


ICHECK NEXT ADDRESS 


007522 


032777 


004000 


171270 


LPADT: 


BIT 


#BIT11.»SR 


ILOOP ON TEST 


J? f:. 7 5 1 


001402 








BEQ 




1 NO t 


7 512 


000167 


177 60 




> 
J 


JMP 


ADTl 


lYES! BITll SET IN SR 










J 
I 
) 

} « « « 


ADDRESS 


TEST 2X » • » 












jexecute a one 


WORD READ 












JIF THE 


TIMING 


ON THE DISK IS 


CORRECT 










JTHE TERMINATING ADDRESS IN THE DAR REGISTER 










;WILL EQUAL THE 


ADDRESS ♦! OF 


THE WORD 










;THAT WAS READ 














JNOTE: 


DATA IS 


NOT CHECK IN THIS TEST, 


? 7 5 1 6 


012706 


001000 




; 

ADT2X: 


MOV 


#1000. X6 


ISET UP STACK 


7 5 > 2 


012767 


000001 


171310 




MOV 


#1»WRDCT 


ISET UP WORD COUNT 


i'' i3 7 5 -5 


012767 


011120 


171312 




MOV 


#INBUF.BUF 


ISET UP CURRENT ADDRESS 


2 7 3 6 


005067 


171302 






CLR 


DMA 




r-0 7542 


005067 


171274 






CLR 


TRACK 




£' 1? 7 5 4 6 


052777 


000400 


171240 


ROAOT : 


BIS 


#BIT8,*DCS 


ICLEAR THE DISK 


V 7 5 5 4 


104405 








READ 






(f?- 7 5 5 6 


105777 


171232 






TSTB 


9DCS 


ICHECK FOR READY 


7 5 6 2 


100375 








BPL 


, "4 




?£7564 


005777 


171224 






TST 


S>DCS 


ICHECK FOR ERROR 



P AL Xll 


V003 
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-2 


007570 


100011 








BPL 


XCHKDT 


05 M 7 K 7 p 


M A / /Of 


1 7 1 ? 1 A 


■171 57H 
X / X c / » 




MOV 














ERROR 


\N 


07 6 00 


012767 


000132 


171252 


ERR132 ! 


MOV 


#132 , ERCOUNT 




000133 








N = N*1 




M iTi 7 ft i/ A 


004567 


£"00556 






JSR 


X5 1 ST AER 


PI 7 A 1 ? 


000755 








BR 


ROADT 


(?07614 


016767 


171224 


171250 


XCHKD T ! 


MOV 


DMA 1 WORKl 


{"07622 


005267 


171244 






INC 


WORKl 


Y.) Vj f ij c. U 


017767 


1711 751 


1 71?34 




MOV 


9D AR , MORK 


007634 


026767 


171232 


171226 




CMP 


MQRKitWORK 


007642 


001406 








BEQ 


AODAR 












ERROR 


\N 


2 12 7 6 4 4 


012767 


000133 


171206 


ERR133 I 


MOV 


#133 , ERCOUNT 




000134 








NsN*l 




K 7 6 2 


004567 


000564 






JSR 


%5|STAER1 


f,:07656 


000733 








BR 


ROADT 


7 6 6 


022767 


004000 


171204 


ADDAR : 


CMP 


#4000, WORKl 



JBRANCH IF NO ERROR 



ISET UP ERROR COUNT 132 

IREPORT ERROR 
ILOOP ON ERROR 

IWHAT DAR SHOULD CONTAIN 

lis DAR CORRECT 
lYES DAR IS CORRECT 

ISET UP ERROR COUNT 133 

JREPORT DAR NOT CORRECT 

ILOOP ON ERROR 

IIS IT THE LAST ADDR, 



PALXll 


V003 


29-OCT- 


70 


0:07 
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007666 


001405 








BEQ 


LPADT2 


ILAST ADDRESS EXIT 


12 7 6 7 




171176 


171146 




MOV 


W0RK1»DMA 


ISET UP FOR NEXT ADDR 




000167 


177644 






JMP 


ROADT 


ICHECK NEXT ADDRESS 




032777 


004000 


171070 


LPADT21 


BIT 


#BIT11,?SR 


JLOOP ON TEST 


2 7 710 


001402 








BEQ 


, +6 


INOI 


007712 


000167 


177600 




J 


JMP 


ADT2X 


lYESI BITll SET !N SR 


007716 


104001 






1 


EMT + 1 






(?07720 


011102 








END 






7 7 2 2 


000167 


171260 






JMP 


STAU 


JRESTART TEST 










;SCOPE 


LOOP ROUTINE 












) IF BIT 


11 SET 


LOOP ON TEST 




?.'/ill2t 


032777 


004000 


171044 


s 

loop: 


BIT 


#BITll,eiSR 


ITST FOR BIT 11 


■r V I ? A 


001402 








BEO 


,+6 


JBIT 11 NOT SET 


i: 7 7 3 6 


013646 








MOV 


»<6)+,-(6) 




3 7 7 4 


000002 








RTI 




JBIT 11 SET! LOOP ON TEST 


7 7 4 2 


005767 


171120 






TST 


PASS 


ITEST TO SET UP PASS COUNT 


?■ 7 7 4 6 


001003 








BNE 


,+10 


IPASS COUNT SET 




012767 


000025 


171110 




MOV 


#25, PASS 


ISET UP PASS COUNT 




005367 


171104 






DEC 


PASS 


ISUB, -1 EACH PASS 




001402 








BEQ 


,+6 




('■IS7764 


013646 








MOV 


Si(6) + ,-(6) 






000002 








RTI 




ILOOP ON TEST 




062716 


?!00002 






ADD 


#2« (6) 


JINOEX POINTER FOR NEXT TEST 


V.VJ"I1A 


000002 








RTI 




JEXIT TO NEXT TEST 



PALXll 
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» 

IFNTCR DISK 


HANOI FR RY THF TRAP 


1 NlSTRUrT T nM 










lARGUMENT TQ 


TRAP INSTRUCTION IS 


TWO ORDER 










;byte of the 


CONTROL REGISTER. 






016705 


171024 




; 

DISKI MOV 


DBR,XS 


JSET UP TO LOAD DISK REG 




016745 


171034 




MOV 


TRACK»-(5) 


ILOAD TRACK NUMBER 


l?10P506 


016745 


171032 




MOV 


DMA, -(5) 


I LOAD WORD ADDRESS 




016745 


171032 




MOV 


BUF,-(5) 


ISET UP CURRENT ADDRESS 


010016 


016745 


171016 




MOV 


WRDCT.-(5) 


ILOAD WORD COUNT 


010022 


005115 






COM 


(5) 


ISET UP TWO'S COMPLEMENT 


5^10024 


005215 






INC 


(5) 




01f5026 


011604 






MOV 


(6) >%4 




K10030 


014467 


171034 




MOV 


-(4) ,WORK 


1 


01^034 


042767 


177 600 


171026 


B I C 


#177600 , WORK 


JMASK FUNCTION BITS 


01l?'042 


016745 


171022 




MOV 


WORK, -(5) 


ILOAD FUNCTION REG. 


010046 


000002 






RTI 




IRETURN FROM TRAP 



J 
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{ROUTINE TO ALLOW THE OPERATOR TO SET BITS 
UN THE I/O REGISTERS VIA THE SWITCH REGISTER 



010050 
010056 



010060 
1 K 6 6 



010 7 
010076 



010100 
010106 



010110 
010116 



^11111 



017777 
000774 



017777 
000774 



017777 
000774 



017777 
000774 



170724 170740 



170714 170732 



170704 170724 



170674 170716 



170664 170710 



fWORD COUNT REGISTER 
SELWC: MOV 5»SR,(i>WC 
BR SELWC 

} 

ICURRENT ADDRESS REGISTER 
SELCMA: MOV S)SR,9CMA 
BR SELCMA 

i 

;DISK ADDRESS REGISTER 
SELDAR! MOV (PSR.SDAR 
BR SELDAR 

J 

JDISK ADDRESS EXT AND ERROR REGISTER 



IMOV SR INTO WORD COUNT REG 



IMOV SR INTO CURRENT ADDR RES 



JMOV SR INTO DISK AOOR REG 



SELDAEJ MOV 9SR,(?DAE 
BR SELDAE 

I 

IDATA BUFFER REGISTER 
SELDBR: MOV @>SR,9DBR 
BR SELDBR 



IMOV SR INTO DISK ADDR EXT REG 



I MOV SR INTO DATA BUFFER 



^1?120 
^^0124 
01^126 



017700 
000005 
000005 
000773 



170706 



J 

U.OOK AHEAD REGISTER 
MOVLK: MOV ISADS, %0 

RESET 

RESET 

BR MOVLK 

I 

;DISK CONTROL STATUS REGISTER 



IFETCH LOOK AHEAD 
IDISPLAY IN LIGHTS 



i'l^'l32 


012777 


000340 


170642 


SELDCS: MOV 


#340,SiCSR 


ILOCK UP INTERRUPTS 


: ' 1 1 4 


012777 


177777 


170650 


MOV 


#177777, ©WC 


ISET WORD COUNT -1 WORD 


r'-i?i46 


012777 


011110 


170644 


MOV 


#OUTBUF,S»CMA 


ISET UP CURRENT ADDRESS 


;'iei&4 


017777 


170620 


170632 


MOV 


(?SR , 6»0CS 


IMOV SR INTO CONTROL REG 


:^ifn62 


032777 


000001 


170624 


BIT 


#BIT0,9DCS 


IIS FUNCTION BITS SET 


? 1 1 7 


001760 






BED 


SELDCS 


IFUNCTION BITS NOT SET 


r''l^'l72 


105777 


170616 




dkbusy: tstb 


9QCS 


ITEST FOR DISK READY 


ri^"l76 


100375 






BPL 


DKBUSY 


IDISK STILL NOT READY 


1 2 


000754 






BR 


SELDCS 


IDISK NOT BUSY SELECT NEW CR 
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1 

■ T U t Q 


D n 1 1 T T Mr 

M U U 1 1 IN t- 


ENABLES THE OPERATOR TO SELECT A TRACK STATICL 










f T u r 


o m 1 T T w r 
K U U 1 1 IN t. 


DOES A ONE WORD 


READ TO SELECT THE TRACK 










;THE 


OPERATOR 


MAY CHANGE THE 


SWITCH REGISTER AT ANY TIME 










JSR6- 


EQUALS 


THE TRACK NUMBER 










t C R O - 

J St y ~ 


7 r n 1 1 A 1 c 


'HE. U 1 bis NUMot n 




/ X c W c 


d "5 ? 7 7 7 


01 01 01 J 01 01 
/' 10 *t 10 10 


1 7 01 A 01 d 
X / 10 O 10 t 


J 

5 T A M P 

a 1 M n r 




#B I T 8 » *DCS 




. A. ^- C X r-^ 


017767 


1 705^4 

X / Ki' V O 


1 70 AS4 




MOV 


A P D 1 t A D i> i4 

i?SR » WORKl 


IFETCH SR 


/ 1 I C 1 O 


t/ i. u / O / 


1 7 £1 A 01 
X / W O 3 10 


"1 7 01 A d 4 

X ' 1^ T *T 




M n u 

n U V 


WDHKX 1 WORK 




^' 1 f/ O O Z 


ffl i 5 7 *. 7 


1 7 A 0! 01 01 
X / 10 10 Ifl 


t 7 CI A X A 
1 / W 




D T r 

B 1 L/ 


#17o000iWORK 


■ uAf^iv nt^t^ Akin vnAML^ ktA 

JMASK DISK AND TRACK NO, 


n 1 C 5 '< 5 


(Z CI A 01 A 7 
V!; KJ D 10 O / 


1 7 M A 9 

X / U O O £ 






DOR 

n U r\ 


WORK 




- ■ ]_ i'; 236 


306067 

lU W If u ^ 


170626 






ROR 


1.1 n D 1/ 
W U K |\ 




v 1 024 2 


0060 A7 

IW VJ KJ U / 


1 706?? 

X / If w t 






RQR 


MODI/ 

W U " f\ 




X »- t H 


PI W A 01 A 7 
yj V o xj o / 


1 7 C A 1 A 

X / It X 






R n P 

r< U rx 


WORK 




''J 1 ii? <: 5 c 


01 01 A 01 A 7 
10 Kl D Ic) / 


i 7 01 A i O 






D n P 

K U r\ 


WORK 




•4 rii o c x 
/ 1 D 


01 1 A 7 7 7 
lu 1 / / / 


i 7 (71 A A 


^ 7 C i1 (51 

1 / 10 3 lO 




u n \/ 


WORK » tOAE 


JDISK EXT, ADDR, REG, LOADED 


■7 1 y Q A 4 
■ 1 » c *t 


01 i 7 7 A 7 


1 7 01 C> i 01 


* 7 51 c 7 A 




MOW 
" U V 


1? S R 1 W R K 






01 C", ffl ■» A 7 
W Iw l^- o o / 


1 7 S 7 5 






C Ul A O 
O n " rJ 


WORK 






CI M A 1 A 7 
K/ K/ U X O / 


1 70ISAA 

X / K-' V D O 






R n 1 

n u L 


WORK 






l> 01 A 1 A 7 
10 lu O X O / 


1 7 d 6> A O 

X / 10 3 O c 






D n 1 

n U L. 


WORK 




. L '■ Q /j O 


01 A 1 A 7 
Iw Iw O X O / 


X / 1" 3 o 






n u U 


u n R k 
w u n r\ 




. 1 K- 1 C 


01 4 5 7 A 7 


'7, 01 7 7 7 
/J 10 O / / / 


* 7 en c c 01 




OTP 


#3777, WORK 




'.' 1 k.-- M 


01 1 A 7 7 7 


i 7 Cn 4 i4 

X / «5 !5 H 4 


4 7 (31 ^ 7 4 

J. / 1(3 *♦ / *» 




lui n u 


WORK.«»OAR 


IDISK ADDRESS REG LOADED 


; ]. £ 


>0 X C 1 1 / 


|7 1 1 1 5 01 
16. X X X c lO 


i 7 01 <1 A 4 




M n \/ 
n u V 


#INBUF,(!iCMA 


JLOAD CURRENT ADDRESS 


i'. 1 o o t 


iJ X C 1 1 1 


1 7 7777 

X 1 1 1 1 1 


1 7 1? 4 4 




MOV 


#177777, *WC 


ILOAD WORD COUNT 


i ■ O n is 


01 B ? 7 7 7 


01 01 1/1 01 !? C» 
/, 10 w icJ v 


1 7 01 d 4 4 




8IS 


#5,e»DCS 


IGO AND READ 


1 « O ^ It' 


105777 

XtJ ^ f / / 


1 7 4 4 




ctbusy: tstb 


iSDCS 


ITEST FOR CONTROL READY 


■■: j_ 1 3 54 


100375 








BPL 


CTBUSY 


IWAIT FOR CONTROL READY 


;-' 1 i'' 35-6 


026777 


170510 


170414 


SRCHG 


: CMP 


WORKl, »SR 




^'12364 


001306 








BNE 


STAMP 


ISR HAS CHANGED 


^1^366 


000773 








BR 


SRCHG 


ISR HAS NOT CHANGED 
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lC'374 
/ 1^"376 

' ■ 1 e 4 
/: 1 ? 4 c: 2 

('■10406 

:■■ 1 i' 4 1 

/ 10412 
ru 4 1 4 

1 K 4 1 6 
? 1 li! 4 2 
PltM22 
;aP'42 4 
fl i'^426 

1 4 3 4 
; 1043 6 

: 1 ?i 4 4 



004567 
001070 
011062 
000006 
004567 
001060 
011016 
000003 
104000 
011014 
011016 
011062 
Xlllll 
032777 
001401 
000000 
000205 



000332 



000320 



IROUTINE TO REPORT ERROR COUNT AND CONTENTS OF ONE RIGISTER 

; 

STAER 



0020!?!0 170344 



JSR 
WORK 
MES6 
6 

JSR 

ERCOUNT 

HE05 

3 

EMT 

HED5A 

HED5 

MES6 

-1 

BIT 

BEO 

HALT 

RTS 



%5,C0NV 



%5, CONV 



*0 



#BITl0,eiSR 
.+4 

%5 



ICONVERT OCTAL TO ASCII 
IDATA TO BE CONVERTED 
lADDRESS OF MESSAGE 

ICONVERT OCTAL TO ASCII 
lERROR COUNT TO BE CONVERTED 
lAOORESS OF MESSAGE 

JREPORT MESSAGE 



;RCUTINE TO REPORT ERROR COUNT 



lEXIT ROUTINE 
AND THE CONTENTS OF TWO REGISTERS 



/ 1^442 
li^446 
M 4 5 
^■15^452 
P10454 
f ' 1 6 

V lvM62 
{- 1 4 6 4 

V 1 P 4 6 6 

; 1P1472 

; 1 1'l 4 7 4 
7. 1 4 7 6 
-'10500 
t'1^502 

:n05i?4 

('10506 
?;10510 
f'10512 
1 5 1 4 
010522 
!?10524 
>''^10526 



004567 
001070 
011062 
000006 
004567 
001072 
011037 
000006 
004567 
001060 
011016 
000003 
104000 
011014 
011016 
011037 
011062 
177777 
032777 
001401 
000000 
000205 



000260 



P!00246 



000234 



; 
I 

STAERl 



002000 170256 



JSR 
WORK 
MES6 
6 

JSR 
WORKl 
MES5 
6 

JSR 

ERCOUNT 

HED5 

3 

EMT 

HED5A 

HED5 

MES5 

MES6 

-1 

BIT 

BEQ 

HALT 

RTS 



%5iC0NV 



XS.CONV 



%5,C0NV 



+ 



#BIT10,eiSR 
y,5 



ICONVERT OCTAL TO ASCII 
IDATA TO BE CONVERTED 
lADDRESS OF MESSAGE 

ICONVERT OCTAL TO ASCII 
IDATA TO BE CONVERT 
lADDRESS OF MESSAGE 

ICONVERT OCTAL TO ASCII 
lERROR COUNT TO BE CONVERTED 
lADDRESS OF MESSAGE 

IREPORT MESSAGE 



lEXIT ROUTINE 



f:'10530 011600 

W10532 022740 104001 



iroutine to decode emt calls 

;emt+i=type one line of text 

;emt+0=type a series of lines 

EMTRP: MOV (6),%0 

CMP #EMT+1,-(0) 



IWAS THE CALL EHT+1 
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P110536 001056 BNE TYPS JNOI TYPE A SERIES OT LINES OF TEXT 

^:iJ?54ia 000400 BR TYP lYES TYPE ONE LINE OF TEXT 
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JSUE3R0UTINE 


TO 


OUTPUT ASCII 


MESSAGE ON TELETYPE PRINTER. 


010542 


011600 






TYPi! 


MOV 




9%6,%0 


IGET ADDRESS THAT CONTAINS MESSAQE ADDRESS 


0101544 


062716 


000002 






ADD 






JSET UP EXIT. 


010550 


011000 








MOV 




9%0>»0 


JADDRESS OF MESSAGE TO R0, 


ei0552 


112067 


000114 




TYPa: 


MOVB 




(0)+, TYPDAT 


IGET CHARACTER 


ei0556 


122767 


000100 


000106 




CMPB 




#100, TYPDAT 


ICHECK FOR CHARACTER 


1 5 6 4 


001001 








BNE 




TYPC 


ICRANCH IF NOT 


K10566 


000002 








RTI 






ITERMINATOR CHAR. DONE. EXIT, 


010570 


122767 


000045 


000074 


TYPCi 


CMPB 




#45, TYPDAT 


ICHECK FOR "X". 


010576 


001422 








BEQ 




TYPF 


IBRANCH IF "X". 


010600 


122767 


000042 


000064 




CMPB 




#42, TYPDAT 


INOT "%". CHICK FOR "#", 


010606 


001423 








BEQ 




TYPG 


IBRANCH IF 


210610 


004767 


000002 






JSR 




%7, TYPD 


ITYPE CHAR IN TYPDAT 


5^10614 


000756 








BR 




TYPA 




010616 


032777 


040000 


170154 


TYPIDI 


BIT 




#BIT14,9SR 




010624 


001006 








BNE 




TYEXIT 




010626 


116777 


000040 


170150 




MOVB 




TYPDAT, 0TPB 


lOUTPUT CHARACTER TO PRINTER 


010634 


105777 


170150 






TSTB 




9TPS 


IWAIT FOR DONE FLAG. 


010640 


100375 








BPL 




,-4 




i'n0642 


000207 






TYEXIT J 


RTS 




%7 


lEXlT 


710 6 4 4 


112767 


000015 


000020 


TYPF" : 


MOVB 




#15, TYPDAT 


IMOVE CARRIAGE RETURN CODE TO TYPDAT 


Z'10652 


004767 


177740 






JSR 




%7.TYPD 


IGO TYPE CHAR. 


010656 


112767 


000012 


000006 


TYPG J 


MOVB 




#12, TYPDAT 


IMOVE LF CODE TO TYPOAT. 


;il0664 


004767 


177726 






JSR 




%7»TYPD 


iGO TYPE CHAR. 


5510670 


000730 








BR 




TYPA 




010672 


000000 






TYPDAT: 



















;SU[3R0UTINE 


TO 


OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 


'/10674 


011600 






TYPS! 


MOV 




9%6,%0 


IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS 


^:i0676 


062716 


000002 






ADD 




#2|9%6 


lUPDATE TO NEXT MESSAGE ADDRESS 


010702 


011067 


000014 






MOV 




S»X0, TYPSB 


lADORESS OF MESSAGE TO TYPSB 


1/10706 


022767 


177777 


000006 




CMP 




#-1, TYPSB 


ICHECK FOR TERMINATOR 


1 7 1 4 


001001 








BNE 




TYPSA 


IBRANCH ir NOT TERMINATOR. 


fl07l6 


000002 








RTI 






ITERMINATOR. EXIT 


-10720 


104001 






TYPSA : 


EMT 




*1 


ICALL ON TYP SUB TO TYPE MESSAGE 


./ 1 C 7 2 2 


000000 






TYPSB: 









lADDRESS OF MESSAGE GOES HERE 


10 7 2 4 


000763 






; 
\ 


BR 




TYPS 


IGO PROCESS NEXT MESSAGE 










\ 
\ 

JOCTAL 


TO ASCII 


CONVERT ROUTINE 










\ 

JENTER 


ROUTINE 


AS FOLLOWS 












J JSRX5,C0NV 
















> AD[DR# = 


ADDRESS 


OF NUMBER TO 


BE CONVERTED 










JADDR BYTE=LSB 


OF WHERE ASCII IS GOING 










J ASCI I # 
) 


= THE 


NUMBER OF ASCII 


CHAR, TO BE CONVERTED 


'/10726 


013567 


000054 




> 

CONVJ 


MOV 




9(5)+, ACNVX 


IVALUE OF # TO BC CONVERTED 


i: 10732 


012501 








MOV 




(5)+, XI 


lASCII ADDR 


i'10734 


012502 








MOV 




{5)*,%2 


I# OF ASCII CHAR 


1-10736 


060201 








ADD 




K2iXl 
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0107 



010740 
!n0744 
015^750 
010754 
010756 
fn0764 
t'10770 
?lf^774 
1 1 
^' 11002 
':'11004 

c'11006 



016703 
042703 
062703 
110341 
042767 
006067 
006067 
006067 
005302 
001356 
000205 
000000 



000042 
177770 
000060 

000007 000022 
000016 
000012 
000006 



ACVN J 



ACNVX 



PAGE 31 



MOV/ 


A fM W V Yt 


DIP 

BIO 


wlf// / »» /to 


Ann 

A U U 




MU V b 


7*0 1 " \i) 


OTP 


jj 7 A P M U V 


and 


A r M u V 

A L>iN V A 


□ n D 
M U " 


k r* M \i v 
ACNVX 


ROR 


ACNVX 


DEC 


%2 


BNE 


ACVN 


RTS 










IISOLATE LEAST SICNjriCANT OCTAL# 
ISET UP ASCIIid 
ISTORE ASCII CHAR 

JROTATE OCTAL# 



1-1 FROM ASCII CHAR COUNT 

lEXlT # CONVERTED 
JWORK REGISTER 
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"11010 000000 
■11012 000000 



TEXBUF: 
TSTCH! 



ERROR MESSAGE HEADERS 



•11014 
■^11015 



011014 
045 
100 



.EVEN 
HED5A! .ASCII 



1 1 1 6 

'11317 
■^■11020 
.'11021 
; 11022 
.■■11023 
1 1 2 4 
•11025 
•■11026 
..11027 
•■11030 
'/11031 
v:il032 
i'.11033 
/ 11034 
i 11035 
/1 1036 



040 
040 
040 
040 
105 
122 
122 
117 
122 
040 
103 
117 
125 
116 
124 
040 
100 



HE055 .ASCII / 



ERROR COUNT »/ 



/ 11037 

rii040 
r-;ll04l 
'Z11042 
f'11043 
1/110 4 4 
^^11045 
&"11046 
f 11047 
^11050 
1.11051 
f'11052 
1^1053 
f/11054 
011055 



040 
040 
040 
040 
040 
040 
040 
107 
117 
117 
104 
040 
104 
101 
124 



MESSAGE TRAILERS 



MES5S .ASCII / 



GOOD DATA 
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011056 101 

011057 040 

011060 040 

011061 100 

> 
I 
J 

011062 040 MES6J .ASCII / BAD DATA*/ 
■^11063 040 

f;ll!364 040 

011065 040 

•?;11066 040 

011067 040 

',ni070 040 

^11071 102 

P11072 101 

011073 104 

011074 040 
^11075 104 

011076 101 

011077 124 
S11100 101 
011101 100 



J 

;nil02 045 end; .ASCII /%END*/ 

:^11103 105 

311104 116 
;mi05 104 
711106 100 
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011110 



011110 
011112 
011114 
011116 



000000 
000000 
000000 
000000 



'/11120 
011122 
011124 
011126 



000000 
000000 
000000 
000000 



• EVEN 



J 

outbuf: .word 



J 

INBUFJ .WORD 



000001 



• END 
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ACNVX 


011006 


ER0R21 


003486 


eRRl20 


006934 


CRR97 


004332 


ACVN 


010740 


ER0R22 


003494 


CRR121 


006690 


ERR6 


0014S6 


ADDAR 


007660 


ER0R23 


003516 


eRRt22 


006664 


ERR60 


004370 


ADS 


001032 


ER0R24 


003944 


ERR123 


007004 


eRR61 


004422 


ADTl 


007316 


CR0R29 


003606 


SRR124 


007020 


ERR62 


0044*4 


ADT2X 


007516 


ERQR26 


003694 


ERR129 


007140 


ERR6S 


004912 


BIT0 


000001 


ER0R27 


003720 


eRR126 


007194 


ERR64 


004994 


BITI 


000002 


ER0R3 


002470 


ERR127 


007266 


ERR69 


004622 


BIT10 


002000 


EROR30 


003776 


ERR13 


001724 


ERR66 


004666 


BiTll 


004000 


ER0R31 


004030 


ERR130 


007400 


ERR67 


004726 


8IT12 


010000 


ER0R32 


004072 


ERR131 


007444 


ERR7 


001466 


BIT13 


020000 


ER0R33 


004120 


ERR132 


007600 


ERR70 


004760 


BIT14 


040000 


ER0R34 


004162 


ERR133 


007644 


ERR71 


009022 


BIT15 


100000 


ER0R35 


004296 


ERR14 


001774 


ERR72 


009090 


R1T2 


000004 


ER0R36 


004332 


ERR19 


002036 


ERR73 


009112 


HIT3 


000010 


ER0R37 


004370 


ERR16 


002106 


ERR74 


009224 


3IT4 


000020 


ERQR4 


002516 


ERR17 


002194 


ERR79 


009294 


BITS 


000040 


EROR40 


004422 


ERR2 


001276 


ERR76 


009324 


BIT6 


000100 


ER0R41 


004464 


ERR20 


002224 


ERR77 


009436 


BIT? 


000200 


ER0R42 


004512 


ERR21 


002266 


FLAG 


001034 


BITS 


000400 


ER0R43 


004594 


ERR22 


002396 


HE09 


011016 


RIT9 


001000 


ER0R44 


004622 


ERR23 


002432 


HED9A 


011014 


PUF 


001050 


ER0R45 


004666 


ERR24 


002470 


HWDOK 


006374 


CMKADT 


007414 


ER0R46 


004726 


ERR2g 


002916 


INBUr 


011120 


CKHWD 


006470 


ER0R47 


004760 


ERR26 


002960 


INCBUS 


002740 


CKNEM 


006524 


ER0R5 


002560 


ERR27 


002606 


INCDAR 


007460 


CLRNEM 


006426 


EROR50 


005022 


ERR3 


001326 


iNCNEM 


006294 


CMA 


001020 


ER0R51 


005090 


ERR30 


002690 


iNCRD 


004644 


CONV 


010726 


ER0R52 


005112 


ERR31 


002716 


INCWAT 


002376 


CSR 


001002 


ER0R6 


002606 


ERR32 


002762 


1NT106 


006664 


CTBUSY 


010350 


ER0R7 


002690 


ERR33 


003022 


1NTH0 


007020 


f.iAE 


001024 


ERR0 


001226 


ERR34 


003094 


INTH2 


007194 


DAR 


001022 


ERRl 


001246 


ERR35 


003116 


1NT114 


007310 


DBR 


001026 


ERH10 


001536 


ERR36 


003144 


INXDSK 


009496 


DCS 


001014 


ERR100 


005500 


ERR37 


003206 


LOOP 


007726 


DISK 


007776 


ERR101 


005532 


ERR4 


001396 


LP106 


006710 


DKBUSY 


010172 


ERR102 


005572 


ERR40 


003302 


LP110 


007044 


OMA 


001044 


ERR103 


009706 


ERR41 


003396 


LPlia 


007200 


eMTRP 


010530 


ERR104 


005740 


ERR42 


003426 


LPADT 


007902 


E.ND 


011102 


ERR105 


005770 


ERR43 


003454 


LPADT2 


007702 


ERCOUN 


001060 


ERR106 


006046 


ERR44 


003516 


LPNEM 


006994 


FRORl 


002356 


ERR107 


006076 


ERR45 


003544 


LPSTl 


001260 


ERORia 


002716 


ERRll 


001606 


ERR46 


003606 


LPST10 


001590 


FRQRll 


002762 


ERR110 


006132 


ERR47 


003694 


LPSTll 


001620 


f-:R0R12 


003022 


ERRlll 


006172 


ERR5 


001406 


LPST12 


001670 


ER0R13 


003054 


ERR112 


006276 


ERR50 


003720 


LPST13 


001736 


ER0R14 


003116 


ERR113 


006320 


ERR51 


003776 


LPST14 


002006 


F.ROrtj.5 


003144 


ERR114 


006392 


ERR52 


004030 


LPST15 


002090 


ER0R16 


003206 


ERR115 


006404 


ERR53 


004072 


LPST16 


002120 


ER0R17 


003302 


ERR116 


006444 


ERR54 


004120 


LPST17 


002166 


ERCR2 


002432 


ERR117 


006500 


ERR95 


004162 


LPST2 


001310 


EROR20 


003356 


ERR12 


001696 


ERR56 


004256 


LPST20 


002236 
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LPST21 


nt f% ^ ^ f% n 

1002300 


STA114 


007204 


STA 163 


004902 


LPST22 


003224 


STAER 


010370 


STAI64 


004930 


LPST3 


001340 


STAERl 


010442 


STA 1 65 


004572 


LPST4 


001370 


STA 


1 


001206 


STAI66 


004640 


L. P S T 4 


004200 


STA 


10 


001504 


STAI67 


004704 


LPST5 


001420 


STA 


11 


001594 


STA17 


001494 


LPST56 


005130 


STA] 


12 


001624 


STAI70 


004744 


LPST6 


001450 


STA 


13 


001674 


STAI71 


004776 


LPST7 


001500 


STA 


14 


001742 


STA 172 




LPS T7A 


f% OS '9 "rr z 

005336 


STA 


15 


002012 


STAI73 


009066 


LPST77 


005610 


STA 


16 


002054 


STA I 74 


009134 


LPSX10 


006004 


STA 


17 


002124 


STAI75 


009240 


LPXi05 


006062 


STA 


2 


001264 


STA I 76 


009272 


LPX106 


006112 


STA 


20 


002172 


STAI77 


009342 


LPXlt^7 


006146 


STA 


21 


002242 


STAMP 


010202 


LPX108 


006206 


STA 


22 


002304 


START 


001076 


L T S W T 


005202 


STA 


23 


002372 


SWROCT 


001096 


MA 


001030 


STA 


24 


002446 


TDMA 


001094 


MESS 


011037 


STA 


25 


002506 


TEXBUF 


011010 


MES6 


011062 


STA 


26 


002534 


TKB 


001006 


MOVlk 


010120 


STA 


27 


002576 


tks 


M n A A ^ 

001012 


N 


000134 


STA 


3 


001314 


TPB 


001004 


r,! X M T S M 


0li96212 


STA 


30 


002624 


TPS 


001010 


UT B U F 


011110 


STA 


31 


002666 


TRACK 


001042 


PASS 


001066 


STA 


32 


002734 


TSTCH 


011012 


P A TNiU 


001046 


STA 


33 




TSTNEM 


f% n A '<■ An 

006342 


R A N N U 


001036 


STA 


34 


003040 


TWRDCT 


001092 


R D A T 


004276 


STA 


35 


003072 


TYEXIT 


010642 


RDYfRX 


006320 


STA 


36 


003134 


TYP 


010542 


RE An 


104405 


STA 


37 


003162 


TYPA 


010592 


R A G T 


007546 


STA 


4 


001344 


TYPC 


010570 


SAVl 


001064 


STA 


40 


003230 


TYPD 


010616 


SAVE 


001062 


STA 


[41 


003316 


TYPDAT 


010672 


SCOPE 


000004 


STA 


42 


003372 


T YPr 


010644 


SEUCM A 


010060 


STA 


43 


003444 


T YPG 


010696 


S E L A E 


010100 


STA 


44 


003472 


TYPS 


010674 


SELDAR 


010070 


STA 


45 


003534 


TYPSA 


010720 


SELDSR 


010110 


STA 


46 


003562 


TYPSB 


010722 


SELDCS 


010132 


STA 


47 


003624 


WAFBUS 


005664 


SELWC 


010050 


STA 


5 


001374 


WATRDY 


006116 


SR 


001000 


STA 


50 


003672 


wc 


001016 


SRCHG 


010356 


STA 


51 


003736 


WCBUSI 


003676 


ST105X 


006010 


STA 


52 


004014 


WCW AT 


003322 


STA103 


005452 


STA 


[53 


004046 


WORK 


001070 


ST A101 


005516 


STA 


54 


004110 


WQRKl 


001072 


S T A 1 2 


.'^ ni c c c 


STA 


55 


0W*»13O 


U A D n 


f%fH4 1%^ A 

0010 7** 


STA103 


005614 


STA 


56 


004204 


WRADT 


007346 


S T A 1 4 


005722 


STA 


57 


004272 


WRCHEC 


104407 


STAINS 


005754 


STA 


[6 


001424 


WRDCT 


001040 


STA106 


006560 


STA 


[60 


004346 


WRITE 


104403 


STA110 


006714 


STA 


61 


004406 


XCHKDT 


007614 


STA112 


007050 


STA 


[62 


004440 


XSTAU 


001240 
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